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Tras un breve lapsus de tiempo, aquí estamos de 
nuevo con nuevos e interesantes programas para 
todos aquellos “AMIGOS DEL AMSTRAD’’. 

Ante todo, comenzar agradeciendo el cariño con el 
que hemos sido recibidos por todos vosotros, y 
aunque se haya dicho muchas veces esto nos 
obliga a superarnos en ofrecer lo mejor cada mes. 

En este ya nuestro número 2, os ofrecemos una 
serie de programas listados con mayor o menor 
dificultad, en los cuales podéis introducir una serie 
de cambios y mejoras, dejando de esta forma 
campo abierto a vuestra imaginación y vuestros 
conocimientos del ordenador. 

Esperamos que os sean de utilidad e interés y, con 
vuestra voluntad y nuestra pequeña contribución, 
seáis capaces de elaborar poco a poco, programas 
cada vez más complicados. 

Gracias y hasta el próximo mes. 
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10 REM f* 
20 REM í 

* * * PHAN 

TOMFIRE 

RCIA DEL 

xxttxx 












QNGEL GA 

GADO * 










30 REn %% 

xxttxxx 

G.T.S. * 

xxxxxx 











40 REN 

SO Mrmp i i 














60 I NI 0 , 

D:INK 1 , 

26:INK 2 

,7:INK 3 

,18 










70 PAPER ’ 

;>: RORDER 

0 









30 GRIGIN 

318,210 













90 POR a=( 

-1 TO 2*P 

I STEP P 

I / 70 











1O0 PLOT 

110 DRAW 
120 DRAWR 
130 NEXT 
140 PRINT 

7,0,2 

100 * L'üü (a ) , 150 *SIN (a) 
0,30*SIN(a),3 

.i 

CHR4 (22) +CHR4 : ( 1 ) ; 











150 LOCATf 
160 PRINT 
170 PRINT 
180 INK 2 
190 P'DR a? 

~ 6¡ 12 

"PRANTOMFIRE" 
CHR4(22)+CHRÍ(0 
,7,0:INK 3,0,18 
= i Tn inn -c;niiwri 

) ; 

1,a,l ,15 










200 INK 2 

.18.7:INK 3.7.18 

■ 1 1 1_Al ck 








210 FOR a 

=300 TO 

i STEP - 

2:SOUND 

1.a,1:SOUND 2.a*2.1:NEXl 

r a 





220 INK 2 

,7:INK 3 

,18 












230 FOR a=l TO SOOiNEXT a 













r ur\ a=<j iu oujrKiNl UhKf í/í ahüK b=l T 
Mnncr i 

D 50:NEXT b:NEXl 

r a 






260 GOTO 310 











270 PRINT TAB(20-LEN(ai)/2 )jFOR a 

=1 TO LEN(a$) 









2B0 bÍ=MIDi(a4,a, 

1) .-PRINT 

bi; :IF 

bi<>" " 

THEN PRINT CHR4 

17) ; 







290 NEXT 

3 













300 PRINT 

:KKINT:F0R a=l TO 200:NEXT a:RETURN 










ow r\c.i i xiMiL xu utL rrxuurxHnH *** 

r: n cv PWZiWTnMP T PF N "S *' ■ RHCI 0"7ri 










330 PRINT 

:AÍ="DESTRUYE A 

LAS NAVES ENEMIGAS QUE H 

AN":GOSUB 270 






340 Ai="OSADO INTRODUCIRSE EN TU 

ESPACIO 

AEREO. " 

GOSUB 270 





350 PRINT:AÍ="PON 

LA NAVE 

A TIRO 

(SUENA UN SONIDG 

1) Y " : GOSUB 270 







360 Ai= ENTONCES PULSA -SPACE- PARA DISPARAR"íSOSUB 270 








4 - AMIGOS DEL AMSTRAD - 1986 




































ILfLlLILtLfLlLfLILItJLIL 



































































































370 PRINT:AÍ="PARA DESPLAZAR LA NAVE EMPLEA LAS":60SUB 270 
380 Ai="TECLAS DEL CURSOR":GOSUB 270 
390 PRINT:AÍ="PULSA -S- PARA EMPEZAR" :GÜSUB 270 
400 IF INKEY <60)<>0 THEN 400 

410 v=l :BOSUB 940.-INK 0,26:PAPER OsBORDER 26:INK 1,1B:INK 2,19:INK 3,21 :INK 4,0 

INK 5,6:INK 6,15,5¡INK 7,11:M0DE O:ENT 1,10,-1,1 

420 ENV 1,30,-1,1:ENT 2,50,1,1 

430 WINDOW #1,7,14,22,22:PEN #1,5 

440 WINDOW #2,6,15,24,24:PEN #2,6 

450 vi= "&&&&«<&&&" 

460 y=200 :FOR n=l TO 5 

470 PEN 1:FOR a=l TO n*2:y=y-2:PLOT O,y,1 ¡DRAWR 650,0:NEXT a 
480 FOR a=l TO n*3:y=y-2:PLOT O,y,2¡DRAWR 650,0:NEXT a 
490 FOR a=l TO n*4:y=y-2:PLOT 0,y,3:DRAWR 650,0:NEXT a 
500 NEXT n 

510 FOR a=150 TO 250:PL0T a,0,0:DRAWR O,a-150:DRAWR -50,0:NEXT a 
520 FOR a=250 TO 370:PL0T a ,0:DRAWR 0,100:NEXT a 

530 FOR a=370 TO 470:PLDT a,O:DRAWR 0,ABS<470-a):DRAWR 50,0:NEXT a 
540 LOCATE 8,20:PEN 7 : PRINT "&&&&&?<" 

550 p=0: GOSUB 880¡GOSUB 860 
560 y=300:x=150:PRINT CHRi(23)+CHRÍ(1):TAG 
570 IF v=l THEN INK 1,9:INK 2,18:INK 3,19 
580 IF v=2 THEN INK 1,19:INK 2,9:INK 3,18 
590 IF v=3 THEN INK 1,18:INK 2,19:INK 3,9 
600 SOUND 4,500,10,10,0,0,31 

610 x=x+INT(16*RND-16*RND):IF INKEY(O)=0 THEN x=x-B 
620 IF INKEY (2) =0 THEN x=x+8_ 

630 y= y +INT<16*RND-16*RND)¡IF INKEY(8)=0 THEN y=y+8 
640 IF INKEY(1)=0 THEN y=y-B 
650 IF x<124 THEN x = 124 

660 MOVE y,x , 4 : PRINT"E]";:IF RND>0.99 THEN GOSUB 890 
670 v=v+l:IF v>3 THEN v=l 

680 IF x<240 THEN IF x>210 THEN IF y<310 THEN IF y>270 THEN SOUND 1,20,5,15 
690 IF INKEY(47)=0 THEN GOSUB 720 
700 MOVE y , x :PRINT"CU"; 

710 GOTO 570 

720 MOVE 200,100:DRAW 316,220¡MOVE 422,100:DRAW 320,220 

730 SOUND 2,50,20,15,0,2 

740 IF x >240 THEN GOTO 810 

750 IF x <210 THEN GOTO 810 

760 IF y>310 THEN 810 

770 IF y<270 THEN 810 

780 SOUND 3,100,30,15,0,2,31:p=p+15:GOSUB 880 

790 MOVE y,x:PRINT"CI";:x=200+INT(RND*200) :y=INT<RND*600) :MOVE y,x:PRINT"U"; 
800 GOTO 830 

810 p=p-2: IF p<0 THEN p=0 
820 GOSUB 880 
830 REM 

840 MOVE 200,100:DRAW 316,220¡MOVE 422,100:DRAW 320,220 
850 RETURN 

860 PRINT#2,vi:IF LEN(vÍ)=0 THEN GOTO 1030 
870 RETURN 

880 F'RINT# 1 ,p ¡RETURN 

890 MOVE y,x-8:DRAW 312,114¡MOVE y+64,x-8¡DRAW 312,114 

900 SOUND 1,100,10,15,0,1 

910 VÍ=MIDÍ(vi,2,11)¡GOSUB 860 

920 MOVE y,x-8¡DRAW 312,114¡M0VE y+64 ,x-8¡DRAW 312,114 

930 RET1. RN 

940 SYMBOL AFTER 32 

950 SYMBOL 160,1,3,6,15,31,57,112,63 

960 SYMBOL 161,128,192,96,240,248,156,14,252 

970 SYMBOL 64,66,153,165,219,255,189,153,66 

980 SYMBOL 91,0,7,9,61,119,192,128,0 

990 SYMBOL 93,0,224,144,188,238,3,1,0 

1000 SYMBOL 92,20,65,8,34,144,4,65,20 

1010 SYMBOL 38,254,254,254,254,254,254,254,254 

1020 RETURN 

1030 REM *** GAME OVER *** 
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1040 FOR A=1 TO 20:F0R B=100 TO 200 STEP AsSOUNB 1,B,1,15,0,0,31:NEXT BxNEXT A 
1050 INK 0,0:1NK 1,26:INK 2,15,0:PAPER O:BORDER 0:PEN 1:MODE O 
1060 PEN 2:LOCATE 6,7:PRINT"GAME OVER" 

1070 PEN 1:LOCATE 4,12:PRINT"PUNTOS:"jUSING "######";P 
1080 PEN 3:INK 3,15:L0CATE 5,17rPRINT "OTRA? (S/N)" 

1090 FOR A=1 TO 50:A*=INKEY*:N£XT A 
1100 PEN 1 

1110 IF INKEY <60)=0 THEN RUN 250 
1120 IF INKEY(46)=0 THEN CALL O 
1130 GOTO 1110 



SUICIDA 


10 REM ******* SUICIDA ******** 

20 REM * ANGEL GARCIA DELGADO * 

30 REM ****** G.T.S. ********** 

40 REM 
50 MODE O 

60 INK 0,0:INK 1,26:INK 2,7:INK 3,18 

70 PAPER O:BORDER O 

80 ORIGIN 318,210 

90 FOR a=0 TO 2*PI STEP PI/70 

100 PLOT 0,0,2 

110 DRAW 300*COS(a),150*SIN(a) 

120 DRAWR O,30*SIN(a),3 
130 NEXT a 

140 PRINT CHRÍ<22)+CHR* <1) ; 

150 LOCATE 8,12 
160 PRINT "SUICIDA" 

170 PRINT CHR$(22)+CHR*(O) ; 

180 INK 2,7,O:INK 3,0,18 

190 FOR a~l TO 300:S0UND 1 ,a , 1 ,15 :NEXT a 
200 INK 2,18,7:INK 3,7,18 

210 FOR a=300 TO 1 STEP -2.-S0UND l,a,l:SOUND 2,a*2,l:NEXT a 

220 INK 2,7:INK 3,18 

230 FOR. a=l TO 500:NEXT a 

240 FOR a=0 TO 50:PRINT CHR*(7):F0R b=l TO 50:NEXT b :NEXT a 
250 MODE 1 
260 GOTO 310 

270 PRINT TAB(20-LEN<aí)/2):FOR a=1 TO LEN<a$) 

280 b*=MID*(a*,a,l) :PRINT b*; :IF b*<>" " THEN PRINT CHR*(7); 
29o NEXT a 

300 PRINT :PRINT :FOR a=l TO 200.-NEXT a :RETURN 
310 REM *** INICIO DEL PROGRAMA *** 

320 A$="<<< SUICIDA >>>":GOSUB 270 



330 

PRINTi 

:A$="EN ESTA OCASION ERES UN LOCO PELIGROSO" 

:GOSUB 270 


340 

A$= " Y 

TE HAS PROPUESTI 

D ESTRELLARTE CONTRA 

":GOSUB 

270 



350 

360 

M*="IUUUS LUS COCHES QUE SALGAN A TU PASO 
PRINT:A*="Q. MUEVE ARRIBA":GOSUB 270 

" :GOSUB 

270 
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370 A*="A. MUEVE ABAJO":GOSUB 270 
380 PRINT:A*="PULSA -S- PARA EMPEZAR" 

390 GOSUB 270 

400 IF INKEY (60)00 THEN 400 
410 GOSUB 870 

420 INK 0,0:1NK 1,26:INK 2,17:INK 3,12 
430 PAPER O:BORDER 0:PEN 1 
440 MODE 1 

450 bí=CHR$<160)+CHR*(161):m$=CHR$(162)+CHR$(163) 

460 E$=CHR$(164)+CHR*(165> 

470 H=13 
480 P=0:F=0 
490 GOSUB 770 
500 X=13:Y=37:1=1 

510 ORIGIN 0,200:PLOT 0,60,1:DRAWR 650,0:PL0T 0,-60:DRAWR 650,0 
520 PEN 2:LOCATE 10,HSPRINT" " 

530 IF INKEY (67) =0 THEN H=H-1:IF H<10 THEN H=10 
540 IF INKEY(69)=0 THEN H=H+1:IF H>16 THEN H=16 
550 LOCATE 1O,HsPRINT B* 

560 SOUND 1,1000,1 
570 PEN 3 

580 LOCATE Y,X:PRINT" " 

590 X = X + I 
600 Y = Y~1 

610 IF X >15 THEN I=-l 
620 IF X<11 THEN 1=1 

630 IF Y<1 THEN Y=37:F=F+1 :GOSUB 770 
640 LOCATE Y,X:PRINT M* 

650 SOUND 1,800,1 

660 IF X=H THEN IF Y=10 OR Y=ll OR Y=12 THEN GOTO 680 
670 GOTO 520 

680 LOCATE 11,H:PRINT E*:GOSUB 750 

690 LOCATE 1O,HsPRINT E$:GOSUB 750 

700 LOCATE 11,H:PRINT E*:GOSUB 750 

710 P=P+15:GOSUB 770 

720 GOSUB 750:GOSUB 750 

730 LOCATE 10,H:PRINT " ":GOSUB 750 

740 Y=37:GOTO 520 

750 FOR A=1000 TO 1100 STEP 10:S0UND 1,A,1,15,0,0,31:NEXT A:RETURN 
760 END 

770 PEN 1:LOCATE 4,3:PRINT"PUNT0S: ";P;TAB(25);"FALLOS: ";F 
780 IF F>9 THEN GOTO 800 
790 RETURN 
800 INK 2,15,0 

810 FOR A=1 TO 20:FOR B=100 TO 200 STEP A:SOUND 1,B,1,15,0,0,31:NEXT B:NEXT A 
820 MODE O 

830 PEN 2:LOCATE 6,7:PRINT"GAME OVER" 

840 PEN 1 :LQCATE 4,14:PRINT"PUNTOS:";USING "######"jP 

850 FOR A=1 TO 10000:NEXT A 

860 GOTO 250 

870 SYMBOL AFTER 160 

880 SYMBOL 160,31,57,113,225,255,199,187,56 
890 SYMBOL 161,128,64,32,240,254,199,187,56 
900 SYMBOL 162,1,2,4,127,255,199,187,56 
910 SYMBOL 163,128,128,128,255,255,227,221,28 
920 SYMBOL 164,99,136,18,64,43,136,34,153 
930 SYMBOL 165,198,17,72,2,212,17,68,153 
940 RETURN 
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NUCLEO ENERGETICO 


10 REM *¥** NUCLEO ENERGETICO *** 
20 REM ** ANGEL GARCIA DELGADO ** 

30 REM 

40 REM 
50 MUDE O 

60 INK Ó,0:1NK 1,26:INI 
70 PAPER O : BORDEE' O 
80 ORIGIN 318,210 
90 POR a-0 Tü 2*FI STEP PI/70 
100 F'LOT 0,0,2 


2,7:INK 3,18 


1 1 O DRAW 300 * CÜS (a) ,150 * S IN(a ) 

120 DRAWR O,30* SIN < a) ,3 
130 NEXT a 

140 F'RINT CHR* (22) +CHRÍ (1 ) ; 

150 LOCATE 8,12 
160 PRINT "NUCLEO" 

170 PRINT CHRT (22) * CHR*< O) ; 

100 INK 2,7,0:INK 3,0,18 

1 9< i FOR a~ 1 TO 300: SOUND 1,a,1,15:NEXT a 
200 INK 2,18,7:INK 3,7,18 

210 FOR a=300 TO 1 STEP ~2:S0UND l,a,l:SOUND 2,a*2,l:NEXT a 

220 INK 2,7:INK 3,18 

230 FOR a=l 10 5oO:NEXT a 

240 FOR a=0 TO 50:PRINT CHR*<7):F0R b=l TO 50 rNEXT b:NEXT a 
250 MODE 1 
260 GOTO 310 

270 PRINT TAB(20-LEN <at)/2) :FOR a=l TO LEN(aí ) 

280 b*=r-MID*(at,a,l > :PRINT b*;:IF b*<>" " THEN PRINT CH«*í7): 
290 NEXT a 


300 PRINT :F'RINT:FOR a=l TO 200:NEXT a :RETURN 


310 REM *** INICIO DEL PROGRAMA *** 

320 A*="<< NUCLEO ENERGETICO >>“rGOSUB 270 

330 PRINT:A*="DEFIENDE TU NUCLEO ENERGETICO":GOSUB 270 

340 A*="DE LOS ATAQUES DE LOS ALIENIGENAS":GOSUB 270 

350 A*=”DEL PLANETA DRAKOV":GOSUB 270 

360 PRINT:A4“"L0S CONTROLES SON:"sGOSUB 270 

370 A*="Q. ARRIBA A. ABAJO"rGOSUB 270 

380 A*="0. IZQUIERDA P. DERECHA":GOSUB 270 

390 PRINT:A*="PULSA -S- PARA EMPEZAR"rGOSUB 270 

400 IF INKEY(60)< >0 THEN 400 

410 GOSUB 870 

420 C0=24 

430 DIM M(8,2) 

440 MODE 1 

450 ENT 1,10,1,1,10,-2,1 
460 ENT 2,20,1,3 

470 INK 1,26:INK 3,18:INK 2,C0,C0+3 

480 B*="":FOR A=1 TO 6:Bí=B*+CHR*(160)jNEXT A 

490 C*=B*+CHR*(160)+CHR*(160) 

500 D*=C*+CHR*(160)+CHR*(160) 

510 LOCATE 5,8 
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520 A*=B*:G0SUB 9701A*=C* íBOSUB 970 iA*=D*aFOR A=1 TO SaGOSUB 970tNEXT A 

530 A*=C*:GOSUB 970aA*»B$aGOSUB 970 

540 X=10a Y=5 

550 XB=XaYB=l 

560 FOR A=1 TO 8 

570 GOSUB 980 

580 NEXT A 

590 A=1 

600 PEN 3sGOSUB 740 
610 A=A+1:IF A>8 THEN A=1 

620 IF INKEY(67)=0 THEN X»X-laIF X<1 THEN X=i 
630 IF INKEY (69) =0 THEN X-X+lalF X>25 THEN X-25 
640 IF INKEY(34)=0 THEN Y=Y-laIF Y<1 THEN Y=1 
650 IF INKEY(27)«O THEN Y=Y+laIF Y>39 THEN Y-39 
660 LOCATE Y,X:CALL 30000:C=PEEK(29999) 

670 IF C»0 THEN X=XBaY»YB 
680 IF 0=161 THEN GOSUB 840 
690 PEN 1 

700 LÓCATE YB,XB:PRINT" "aLOCATE Y,XsPRINT CHR$(24B+RND*3) 

710 XB=Xa YB=Y 

720 SOUND 4,100,20,5+00/3,0,1 
730 GOTO 600 

740 XM=M(A,1):YM“M(A,2):LOCATE YM,XM:PRINT" " 

750 IF XM>12 THEN IF RND>0.5 THEN XM=XM-1 

760 IF XMC12 THEN IF RND>0.5 THEN XM=XM+Í 

770 IF YM<20 THEN IF RND>0.5 THEN YM=YM+1 

780 IF YM>20 THEN IF RND>0.5 THEN YM=YM-1 

790 LOCATE YM,XM:CALL 30000:C=PEEK(29999) 

800 IF C=0 THEN GOSUB 1040 

810 PEN 3:LOCATE YM,XM:PRINT CHR$<161> 

820 M(A,1)=XM:M(A,2)=YM 

830 RETURN 

840 FOR A=1 TO 8 

850 IF M(A,1)=X THEN IF M(A,2)=Y THEN SOUND 1,200,25,15,0,2sGOSUB 9801P=P+5:RETU 
RN 

860 NEXT AjA-HRETURN 
B70 REM *t CODE SCREEN* ** 

880 DATA 205,96,187,50,47,117,201 
890 RESTORE 880 

900 FOR a=30000 TO 30006:READ baPQKE a,b:NEXT a 
910 SYMBOL AFTER 160 

920 SYMBOL 160,126,219,165,219,219,165,219,126 
930 SYMBOL 161,255,153,189,255,129,255,66,231 
940 SYMBOL 162,0,36,90,36,36,90,36,0 
950 RETURN 

960 rem **t*»tm*t*smst 

970 PRINT TAB(20-LEN(A*)/2)jsPAPER 3:PEN 2:PRINT A*iPAPER OsPEN 1 iRETURN 
980 XX=1 + INT(RND*24> aYY=1+INT(RND*39> 

990 LOCATE YY,XX tCALL 30000 

1000 IF PEEK (29999) 032 THEN GOTO 980 

1010 M(A,l)=XXaM(A,2)=YY 

1020 LOCATE YY,XXsPEN 3SPRINT CHR*(161) 

1030 RETURN 

1040 REM *** MUERTO *$$ 

1050 XM=M(A,1)a YM=M(A,2) 

1060 FOR Z=1 TO 200 STEP 10:S0UND 2,Z,2,15,0,1aNEXT Z 
1070 CQ=C0-2alNK 2,C0,CO+3aIF CQ<1 THEN GOTO 1090 
1080 RETURN 

1090 REM t** GAME OVER t$t 

1100 FOR A=1 TO 20:FOR B=100 TO 200 STEP A:SOUND 1,B,1,15,0,0,31aNEXT BaNEXT A 
1110 INK O,0:INK 1,26:INK 2,15,0aPAPER OaBORDER OaPEN 1aMODE O 
1120 PEN 2aLOCATE 6,7aPRINT"GAME OVER" 

1130 PEN 1 aLOCATE 4,12aPRIÑT"PUNTOSa *jUSING "######"»P 
1140 PEN 3aINK 3,15:L0CATE 5,17:PRINT "OTRA? (S/N) K 
1150 FOR A=1 TO 50aA*=INKEY*aNEXT A 
1160 PEN 1 

1170 IF INKEY(60)=0 THEN RUN 250 
1180 IF INKEY(46)=0 THEN CALL O 
1190 BOTO 1170 
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NAUFRAGO 


10 REM *#* NAUFRAGO- **# 

20 REM * ANGEL GARCIA t 
30 REM **** G.T.S. **** 

40 REM 
50 MQDE O 

60 INK 0,0:INK 1,26:INK 2,7;INK 3,18 

70 PAPER O sBGRDER O 

80 ORI61N 318,210 

90 FOR a=0 TO 2*PI STEP PI/70 

100 PLOT 0,0,2 

110 DRAW 300*C0S(a>,150*SIN(a) 

120 DRAWR 0,30*SIN(a>,3 
130 NEXT a 

140 PRINT CHRi(22)+CHRÍ(1); 

150 LOCATE 7,12 
160 PRINT "NAUFRAGO" 

170 PRINT CHR*(22)+CHR*(0); 

180 INK 2,7,O:INK 3,0,18 

190 FOR a=l TO 300:S0UND 1 ,a ,1 ,15:NEXT a 

200 INK 2,18,7:INK 3,7,18 

210 FOR a=300 TO 1 STEP -2:S0UND l,a,l:SOUND 2,a*2,l:NEXT a 

220 INK 2,7:INK 3,18 

230 FOR a=l TO 500:NEXT a 

240 FOR a=0 TO SüiPftINT CHR*t71 :FOR b=l TO SOiNEXT b:NEXT a 
250 MODE 1 
260 GOTO 310 

270 PRINT TAB(20-LEN(aÍ>/2>:FOR a=l TO LEN(aÍ) 

280 bÍ=MID$(a*,a,l) :PRINT b$;:IF blO" " THEN PRINT CHR*<7>: 

290 NEXT a 

300 PRINT:PRINT:FOR a=l TO 200:NEXT a:RETURN 
310 REM *** INICIO DEL PROGRAMA *** 

320 Ai="<< NAUFRAGO >>":GOSUB 270 

330 PRINT :Ai="RECOGE LAS PROVISIONES QUE TE":GOSUB 270 

340 A*="ENVIA EL AVION PARA QUE SOBREVIVAS":GOSUB 270 

350 A*="AL NAUFRAGIO, HASTA QUE VENGA":GOSUB 270 

360 A*="UN BARCO A RESCATARTE":GOSUB 270 

370 PRINT:A$="CONTROLES DE TU BARCA:GOSUB 270 

380 A$="F1. MUEVE A LA IZQUIERDA*' :GOSUB 270 

390 A*="F3. MUEVE A LA DERECHA":GOSUB 270 

400 PRINT:Aí="PULSA -S- PARA EMPEZAR":GOSUB 270 

410 IF INKEY (60)00 THEN 410 

420 ENT 1,10,1,1,10,-1,1 

430 GOSUB 720 

440 INK O,23:PAPER OrBORDER 23:INK 1,0:PEN 1:MODE O 
450 INK 2,4:INK 3,6:INK 4,14: INK 5,26 

460 WINDOW «1 ,1 ,20,24,25:PEN 41 ,5: PAPER #1,4:WIND0W 42,1 ,20,19,25 : PAPER 42,4:CL.S 
#2 

470 AC=0:FA=0:GOSUB 660 
480 pa=l :xp=5:yp-5 
490 y =8 

500 xa=l+INT(RND»10): y a=0 
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510 IF INKEY(13)=0 THEN y = y -l:IF y<2 THEN y=2 
520 IF INKEY(5)=0 THEN y=y+l:IF y>18 THEN y=18 
530 EVERY 50 GOSÜB 830 
540 LOCATE y-l,18:PEN 3:PRINT ba* 

550 y a=ya + l:IF y a>17 THEN LOCATE ya,xa:PRINT " " :xa=l + INT(RND*10) : y a=l 

560 LOCATE ya,xa:PEN 1:PRINT av$ 

570 SOUND 1,800,10,10,0,1,31 
580 ON pa GOSUB 600,620 
590 GOTO 510 

600 IF RND>0.95 THEN pa=2:xp=xa+1:yp=ya+2:SOUND 2,100,10,15 
610 RETURN 

620 LOCATE yp,xp:PRINT" "ixp=xp+l:LOCATE y p,xp:PEN 2:PR1NT peí 

630 IF xp> 16 THEN LOCATE yp ,xp :PRINT" " :LOCATE yp ,xp + l :PRINT" " :pa=l :f a=f a+ 1 :SOU 
ND 2,400,20,15:GOSUB 660 

640 IF xp=15 OR xp=16 THEN IF yp=y OR yp=y+l THEN SOUND 2,200,20,15:ac=ac+1:GOSU 

B 660 rLOCATE yp,xp:PRINT" ".-LOCATE yp ,xp+1 :PRINT" " ¡ 

pa=l 

650 RETURN 

660 LOCATE #1,4,1:PRINT #1 , "AC:";USING "##";AC 
670 LOCATE #1,13,1:PRINT #1,"FA s";USING "##";FA 
680 IF FA>19 THEN GOTO 700 
690 RETURN 

700 P=AC*15rF0R A=1 TO 20 :AÍ=INKEYÍ sNEXT A 

710 GOTO 840 

720 SYMBOL AFTER 160 

730 SYMBOL 160,224,240,240,249,135,126,63,0 
740 SYMBOL 161,0,0,129,64,253,255,248,1 
750 SYMBOL 162,60,78,191,255,129,66,36,24 
760 SYMBOL 163,110,255,126,255,255,110,0,0 
770 SYMBOL 164,3,11,5,3,255,127,31,15 
780 SYMBOL 165,192,208,160,192,255,254,248,240 
790 aví=" "+CHRÍ(160)+CHRÍ(161) 

800 peí=CHRÍ(162)+CHRÍ <8> +CHRÍ(10)+CHRÍ(163> 

810 baí='' "+CHRÍ (164) +CHRÍ < 165) +“ " 

820 RETURN 

830 CALL ?<BD19 : RETURN 
840 REM !*♦ GAME OVER *** 

850 FOR A=1 TO 20:F0R B=100 TO 200 STEP AiSOUND 1,B, 1,15,0,0,31:NEXT BrNEXT A 
860 INK O,0:INK 1,26:INK 2,lS,0sPAPER O:BORDER OsPEN 1rMODE O 
870 PEN 2:LOCATE 6,7:PRINT"GAME OVER" 

880 PEN 1 : LOCATE 4,12 :PR INT "PUNTOS : " ;USING "######■' 

890 PEN 3:INK 3,15tL0CATE 5,17:PRINT "OTRA? <S/N)" 

900 FOR A=>1 TO 50 :A*=INKEYÍ :NEXT A 
910 PEN 1 

920 IF INKEY(60)=0 THEN RUN 250 
930 IF INKEY(46)=0 THEN CALL O 
940 GOTO 920 
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MUSCULOS 



















U> Ki M ** MUSCULOS 







*. y r\r._n * 

‘'\(i M A k ¿\Mnr i 

GARO IA 







40 RE M * 







"•O RE M * « f >. 

r. s. 

* * 






RE rt 








A.) I NK p , <.! ¡ [ Nt 

1 ,2fj: INF. 

2,0 






>•{(» ÍU IR DE: R <>:PAf-' 

:R <) :FE_N 

1 






í i u) nn rom : 11 o , 

.'00 







1 iO F OR A- 0 TO 

:• *f I STE 

P PI/50 






1 PLOT (.i,0,2s 

URAW STN(A) * < 150+RND*1B0) ,COSIA) * (HO+RNIi* 160) 


110 NEX T A 








[40 PRINT Cf-IR.il' ( 
ICO SPEED INF 3 

l A¡ i 1 ilfii r i- ; i • i 

’2);CHPT 

< 1 ) 






) , JO 
"PEN i 

KIMT "MU 

en II nq» 





i ?! • i ni r,s.o 







180 RES h: ¡RE toe 

.) 







190 READ A ,F¡: l ( 

A-' - i ? HE N GOTO 

180 





2<;s pí.-4 4«jí» <2" <d 

/ 1 2 ) > . 1 

KUUNIK 12500/E> 





oro SOUNo í , T * o 
reo souNfi 2 ,t*3 

CQ.i'i [F i Ni F r i ■ 

, A * 10,15 
,A*10,15 
•’ 11 THE"N 







? c ¡n 






240 GOTO 190 








200 REM *** MENU *** 







roo Monr i 








:•?<:> i nk 3,11 








300 [ NI 2,0 

290 ORIGIN 0,0: 
300 WINDOW 0.32 

DRAWR 600,0,1 : DRAWR 0,399:DRAWR 
.6.25 

-600,0:1 

DRAWR C 


310 PRI NT " '' : PRI NT" " 







320 PEN 3:PRIN T 

"**** ELIGE TU 

OPCION Ü 

***" 




330 PRINT " " 








340 PEN 1 : PR INI 
350 PRINT " " 
360 PRI NT " 

1 . 

LUES I I UÑAR1U 





2.. I T STAR HATOS'* 






370 PRINT " " 








380 PRINT " 

3. TERMINAR" 






390 PRINT " " 








400 PRINT" " 








410 PEN 3:PRINT 

A'?i ~1 TP T MIc'E." Y / A A 

■ * * * ****************** 

^ — r» tupm rcrrrn AÁr\ 




430 IF INKEY(65 

)=0 THEN 

GOTO 880 





440 IF INKEY<57 

)-0 THEN 

MODE 1 : 

CALL 0 





450 GOTO 420 








460 RFÍM **** CUESTIONARIO **** 






4 /u MUUL 1 :INK 

1 ,26:1NE 

2 ,20:1N 

K 3,8 





480 EUR P—1 lU 

MHl l£ 1 lOt'M 

i-O 

1 n PtóI.WT." 

****** mi icn ii ríe 

ncri mcppn wü iMAKin * * * * 


500 N=INT (RND*3) 







510 IF N-0 THEN 

RESTORE 

960 
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520 
530 
540 
550 
560 
570 
580 
590 
füL 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 


IF N=1 THEN RESTÜRE 980 
IF N~2 THEN RESTORE 1000 

READ R*,NN:NN=INT(RND*NN):FOR Z=Ü TO NNsREAD IísNEXT Z 
PEN 3:PRINT" " 

F'RI NT" PREGUNTA : " ;P ;TAB <17) ;"MUSCULO: ";I* 

PRINT " " :PEN 2 
PRINT " " 

PRINT "A QUE PARTE PARTE DEL CUERPO CORRESPONDE";sPRINT 
MUSCULO CITADO:" 

PRINT" " : F'RI NT n 

PEN 3 SPRINT " (PULSA 1,2 o 3)" 

PEN 1 SPRINT " " 

PRINT" "SPRINT 
PRINT" "sF'RINT 
PRINT" "SPRINT 
SOI JND 1 ,100,10 
REM 

IF INKEY(64)=0 
) 

) 


SPRINT" 


CABEZA (Y CUELLO)" 
TRONCO (TORA X-ABDOMEN)" 
EXTREMIDADES" 


THEN 

THEN 

THEN 


NR=0sGOTO 
NR-1sGOTO 
NR=2 sGOTO 


720 

720 

720 


"*''CORRECTO* 1 
SOIJN 


LA RESPUESTA ES 


IF INKEY(65)=0 
IF INKEY(57)=0 
GOTO 670 

PEN 2 SPRINT " "sF'RINT" ":IF NR=N THEN PRINT 
";R*:FOR B-l TO 3sF0R A=15 TO O STEP --ls.TNK O,A; 

D 1 ,A,1s NE X 7 A,B s AC=AQ+1 
730 IF NRON THEN PRINT “INCORRECTO. LA RESPUESTA ERA ";RtsSOUND 1 ,600,100 s POR A 
-1 TO lOOsPLOT RND*600,RNÜ*4Ü0sNEXT A 
740 NEXT P 

MODE OsFOR A=1 TO 15 sINK A,27-AsNEXT A 

" **#* 


750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 


PEN 5 SPRINT 
PRINT" "SPRINT" 
SPRINT 


RESULTADOS ****** 


PEN 2 
PRINT " " 

PEN 3 SPRINT 
PRINT 
PEN 1 SPRINT" 
PRINT" 

PRINT 


ACIERTOS." ;AC 


FALLOS.. " ; 20-AC 

"SPRINT" "SPRINT" " 

PORCENTAJES" 5 AC*5;"-Z" 

"SPRINT" "SPRINT" " 

"******************** •■ 

FOR A=0 TO 100sA$=INKEY$sSOUND 1,A , 1,15sNEXT A 

860 


960 


IF 

GOTO 
MODE 
FOR 
READ 
PRINT 

FOR B=i TO NsREAD B*SPRINT 
PRINT" 


INKEYí=""THEN 
250 

2sRESTORE 
= 1 TO 3 
A$,N 


sA*s"SPRINT" 


SPRINT" "SPRINT 


";B#,sNEXT B 


NEXT A 
GOTO 850 
DATA CABEZA,9 


970 DAT A TEMPORAL,MASETERO,PTERIGOIDEO,ORBICULAR,SUPERCILIAR,BUCCINADOR,LINGUAL, 
ESTERNOCLEIDOMASTOIDEO,CUTANEO 
980 DATA TRONCO,8 

990 DAT A PECTORAL,SERRATO,INTERCOSTAL,RECTO,OBLICUO,TRANSVERSO,CUADRADO,DIAFRAGM 
A 

1000 DATA EXTREMIDADES,18 

1010 DATA DELTOIDES ,SUPRAESPINOSO , INFRAESPINOSO ,REDOf* 

EPS,BRAQUIAL,CUBITAL,RADIAL,SUPINADOR,EXTENSORES,FLE 
XORES,SARTORIO,SEMITEND1NOSO,TIBIAL,PERONEOS,GEMELOS 
1020 DATA 8,4,4,5,4,7,4,7,4,5,4,4,4,2,4,O,4,0,4,2,4,4 
7,4,5,4,4,4,2,4,0,4,0,4,2,4,4,8,2,2,0,9,0 
1030 DATA -1,-1 







,TRIC 
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MODULO LUNAR 


10 REM ***** MODULO LUNAR ***** 

20 REM * ANGEL GARCIA DELGADO * 

30 REM ******* 6.T.S. ********* 

40 REM 
50 MODE O 

60 INK 0,0:1NK 1,26:INK 2,7:INK 3,18 

70 PAPER O:BORDER O 

80 ORIGIN 318,210 

90 FOR a=0 TO 2*PI STEP PI/70 

100 PLOT 0,0,2 

110 DRAW 300*C0S(a),150*SIN(a) 

120 DRAWR 0,30*SIN<a),3 
130 NEXT a 

140 PRINT CHR*(22)+CHR*(1) ; 

150 LOCATE 8,12 
160 PRINT "MODULO" 

170 PRINT CHR$ < 22 )+CHR*(O) ; 

180 INK 2,7,0:INK 3,0,18 

190 FOR a=1 TO 300:S0UND 1 ,a,l ,15:NEXT a 
200 INK 2,18, 7:INK 3,7,18 

210 FOR a=300 TO 1 STEP -2:S0UND l,a,l:SOUND 2,a*2,l:NEXT a 

220 INK 2,7: INK 3,18 

230 FOR 1 TO 500:NEXT a 

240 FOR a=0 TO 50:PRINT CHR*(7):F0R b=l TO 50:NEXT b:NEXT a 
250 MODE 1 
260 GOTO 310 

270 PRINT TAB (20-L.E'N (a*) /2) :FOR a=l TO LEN (a*) 

280 b*=MID*<a*,a,l):PRINT b$;:IF b$<>" " THEN PRINT CHR*<7); 

290 NEXT a 

300 PRINT :PRJNT:FOR a=l TO 200:NEXT a:RETURN 
310 REM *** INICIO DEL PROGRAMA *** 

320 Aí="<< MODULO LUNAR >>":GOSUB 270 

330 PRINT:A$="RECOGE CON TU MODULO, LAS CELULAS":GOSUB 270 

340 A$="SOLARES QUE SE ESTAN RECARGANDO":GOSUB 270 

350 A*="FUERA DE LA ATMOSFERA, PERO PROCURA":GOSUB 270 

360 A*=" NO ESTRELLARTE CON LOS ASTEROIDES":GOSUB 270 

370 PRINT:A$="CURSOR <. MUEVE IZQUIERDA":GOSUB 270 

380 A*="CURSOR >. MUEVE DERECHA":GOSUB 270 

390 A$="SPACE. ACTIVA RETROCOHETES":GOSUB 270 

400 PRINT :A*="PULSA -S- PARA EMPEZAR":GOSUB 270 

410 IF INKEY (60)00 THEN GOTO 410 

420 GOSUB 710:1NK O,O:INK 1,26:INK 2,20:INK 3,24,6:INK 4,18:INK 5,3 

430 PAPER O:BORDER 0:PEN 1:MODE O 

440 WINDOW 1,20,3,25:WIND0W #1,1,20,1,3 

450 P=0:V*="###" 

460 C0=0:LLEVAR=0:XN=20:YN=10 
470 XB=XN:YB=YN 

480 CLS: GOSUB 88O:PRINT"0 0 0 0 0 0000 0" 

490 FOR A=1 TO 10:X=4+INT(RND*16):Y=1+INT(RND*19) 

500 PEN 5:LOCATE Y ,X:PRINT"í":NEXT A 
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510 PEN 1sLOCATE 9,21 ¡PRINT"\\\\" 

520 T=INKEY(47):IF T=0 THEN XN=XN-1:SOUND 4,200,5,15,0,0,31:IF XN<1 THEN XN=1 

530 IF TOO THEN XN=XN+1:IF XN>21 THEN BOSUB 760 

540 IF INKEY(8)=0 THEN YN=YN-1;IF YN<1 THEN YN=1 

550 IF INKEY(1)=0 THEN YN=YN+1:IF YN>20 THEN YN=20 

560 LOCATE YN , XN:CALL 30000¡C=PEEK(29999) 

570 IF C<>32 THEN BOSUB 610 

580 PEN 2:LOCATE YB,XB íPRINT" LOCATE YN,XN:PRINT"1" 

590 XB=XN:YB=YN 
600 BOTO 520 

610 IF C=64 THEN IF LLEVAR=1 THEN SOUNB 1 ,900,5,15;XN=XB:YN=YB 

620 IF C=64 THEN IF LLEVAR=0 THEN LLEVAR=1sFOR A=1 TO 100 STEP IOiSOUND 2,A,1,15 

:NEXT A 

630 IF C=123 THEN BOSUB 760 
640 IF C=92 THEN BOSUB 660 
650 RETURN 

660 IF LLEVAR=1 THEN FOR A=100 TO 1 STEP -IOiSOUND 2,A,1,15:NEXT A:P=P+15:BOSUB 
B80:CO=CO+1:LLEVAR=0¡IF C0>9 THEN BOTO 690 
670 IF LLEVAR=0 THEN XN=XB:YN=YB 
680 RETURN 

690 FOR A=1000 TO 1 STEP -8:S0UND 1,A , 1,15:NEXT A 
700 GOTO 460 

710 REM ** CODE SCREEN* ** 

720 DATA 205,96,187,50,47,117,201 
730 RESTORE 720 

740 FOR a=30000 TO 30006:READ b:POKE a,b:NE X T a 
750 GOTO 800 

760 LOCATE YB , XB ¡PRINT" " : LOCATE YN , XN :PEN 3.-PRINT CHR$ (160) :PEN 1 
770 FOR A=1 TO 400:S0UND 4,A , 1,15,0,0,31:NEXT A 
780 LOCATE YN,XNSPRINT" " 

790 V*=MID:*<V*,1 ,LEN(V*)-1) :GOSUB 800 : XN=20 : yn=10¡RETURN 
800 SYMBOL AFTER 32 

810 SYMBOL 91,24,44,94,191,191,191,255,126 
820 SYMBOL 93,16,56,92,56,48,32,16,0 
830 SYMBOL 92,255,255,255,44,44,44,94,191 
840 SYMBOL 160,145,0,84,56,253,16,68,146 
850 SYMBOL 64,24,60,102,219,219,102,60,24 
860 SYMBOL 123,0,24,62,126,63,127,62,24 
870 RETURN 

880 PEN#1 ,4:LOCATE #1 ,1 ,1 :PRINT#1 ," PUNTOS:";:PEN#1,1 ¡PRINT#1,P¡LOCATE #1,17,1:P 

EN#1 ,2 SPRINT «l^í; 11 

890 IF LEN(V*> =0 THEN GOTO 910 

900 RETURN 

910 REM *** GAME OVER 

920 FOR A=1 TO 2O:F0R B=100 TO 200 STEP A:SOUND 1 ,B , 1 ,15,0,0,31:NEXT BsNEXT A 
930 INK O,O: INK 1,26:INK 2,15,0:PAPER O ¡BORDER 0:PEN 1:MODE O 
940 PEN 2:LOCATE 6,7:PRINT"GAME OVER" 

950 PEN 1 ¡LOCATE 4,12 :PRI NT "PUNTOS : " ¡USING •'######" jP 
960 PEN 3 s1NK 3,15:L0CATE 5,17:PRINT "OTRA? (S/N)" 

970 FOR A=1 TO 50:A*=INKEY#¡NEXT A 
980 PEN 1 

990 IF INKEY(60)=0 THEN RUN 250 
1000 IF INKEY(46)=0 THEN CALL O 
1010 GOTO 990 
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ARTILLERIA 














10 Rfc M í 
20 REM % 
30 REM * 
40 REM 
50 MUDE 

;*#*##* ARTILLERIA **#**: 
i ANGEL GARCIA DELGADO *¡ 

i******** G.T.S. #**#***1 

0 

** 

t* 

t* 

60 INK 

: C 

»,0:INK 1,26 

: INK 

2,7:1NK 

3,18 


70 PAPER 0: BURDER 0 
80 ORIGIN 318,210 
90 POR a--O TO 2*PI 8 TEP PI/70 
100 PLOT 0,0,2 

110 DRAW 30Ü*C0S(a),150*SIN(a) 

120 DRAWR O,3Ü*SIN(a) ,3 
130 NEXT a 

140 PRINT CHR*(22)+CHRf(1 )5 
150 LOCATE 6,13 
160 PRINT "ARTILLERIA" 

170 PRINT CHR*(22) +CHR* < O ) ; 

1.00 I NK 2,7,0: INL 3,0,18 
I9u FOR a-- 1 TO 300:S0IJND 1 ,a,l ,15:NEXT a 
200 INK 2,18,7:1NK 3,7,18 
210 FOR a=300 TO 1 STEP 
220 INK 2,7:INK 3,18 
230 FOR a--1 TO 500:NEXT a 

240 FOR a=0 TO 50:PRINT CHR*<7):F0R b=l TO 50:NEXT b:NEXT a 


-2:SOUND l,a,l:50UND 2,a*2,1:NEXT a 


250 MODE 1 


260 GOTO 310 

270 PRINT TAB(20-LEN(ai)/2):FOR a=l TO LEN(aí) 


230 b$=MIDi (ai ,a,l)SPRINT bi;:IF b$C>" 

290 NEXT a 

300 PRINT:PRINTsFOR a=l Tü 200:NEXT a:RETURN 
310 REM *** INICIO DEL PROGRAMA *** 


THEN PRINT CHR*<7> ; 


320 A*="<< ARTILLERIA 


270 


" :GOSUB 270 

330 PRINT:Aí="DESTRUYE UN TANQUE QUE SE ENCUENTRA"sGOSUB 
340 AÍ="AL OTRO LADO DE LA CADENA DE MONTES:GOSUB 270 
350 PRINT:A*="TU PUEDES REGULAR EL ANGULO DE TIRO":GOSUB 270 
360 AÍ="Y EL IMPULSO (VELOCIDAD INICIAL)":GOSUB 270 
370 A*="DE TU UNIDAD ARTILLERA"sGOSUB 270 
380 PRINT:A$="POR CADA TANQUE DESTRUIDO SE TE":GOSUB 


270 

390 Ai="AUMENTARA EN 100 UNIDADES EL INPULSO"sGOSUB 270 
400 PRINT:AÍ="PULSA -S- PARA EMPEZAR"sGOSUB 270 
:>0 THEN 410 


410 IF INKEY(60) 

420 SYMBOL AFTER 32 

430 SYMBOL 91,1,7,127,7,127,255,255,127 
440 SYMBOL 93,128,224,224,224,254,255,255,254 
450 SYMBOL 92,210,173,189,81,127,103,188,24 
460 SYMBOL 64,129,66,36,152,104,102,233,150 
470 IM=300 sAC=0 


DE O 


490 DEF FN R(X > = INT(RNDtX) sORIGIN 0,0 
500 LOCATE l,22sPEN 4sPRINT"@" 
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INK 5,26 

:PEN 1 :M( 




.. J 


t 


rtJUÉJLitsULítitJtJUu¿ 





















































510 FOR A=0 TO 47:PL0T O,A,2 
520 DRAWR 650,0 
530 NEXT A 

540 WINDOW #2,1,20,24,25:PAPER #2,2:PEN #2, 
550 WINDOW #1,1,20,1,2:PEN #1,5 
560 BOSUB 980 

570 FOR Z~250 TO 350 STEP 4 
580 PLOT Z,47:DRAWR O,FN R(100) 

590 NEXT Z 
600 X = 19-FN R<8) 

610 LOCATE X ,22:PEN 3aPRINT"C3" 


620 IF 
630 CLS 
640 
650 
660 


IM<1 THEN GOTO 950 
#2:INPUT 


INPUT #2,"INPULSO 
IM=IM—I 
X=1:Y =200 
670 ENT 1,10,1,1,20,-1,1 
680 DEG:SOUND 1,500,30,15,0,1,31 
690 VX=I*COS(ANG>:VY=I*SIN(ANG) 
700 FOR Z=8 TO 65Ó STEP 4 
710 PLOT X,Y,0 
720 T=Z/VX:X=Z+16 
730 Y=55+VY*T-4.9*T*T 


#2,"ANGULO: ",ANG 

" , I : IF I<0 OR I>IM THEN SOUND 1,100:G0TD 640 













. 4 ~ 























































































































































TO 

640 





































































750 PLOT 

X , Y , 1 






M 






CC 

cc 

)N 

N 

pe 

r e 






















760 S0UN1 
770 FOR 
780 IF T 

D 2,Y* 
**=1 TO 
1=2 TH 

2, 

3 

EN 

EN 

N 

1,13 

0 :NEXT 
GOTO 

GOTO 

íflTÍI R 

V 

820: 

920: 
20 

RE 

RE 



E 




















— 

c 

HOQL 

.. 

US 

NQ 

AJ 
















fc. 
















*0 

6 

fc 

tu ir i 

ÍOO ÍF Y 

L~J IHI 
.8 THE i 
Z 

n 



ut 




















10 NEXT 




























820 ORIGIN X , Y 












5C 



















í 


830 F’RIN* 
840 MOVE 
850 MOVE 
860 REM f 
870 RFM í 

r CHR* 
RND*N 

(23);CHR 
,RND*N:P 

t ( 

1 ) 

:TAG 

:FOR 

N 

= i 

T 

0 





















RINT 


»• . 
9 




























-KNLUN ,KNL>* 
1ÜVE -RND*N, 
'lOOP RKirnltN-- 

N : PKIN 

-RND*N 
RMniM ! 

SPRINT 
PRTMT” 

t M 

























«i 


























e 

180 SOUND 3.A*5. 

3.15 

.0 

. 1 

.3 

i 































e 

¡90 NEXT 

N : TAGOF 

F : PRINT 

CHRt(2 

3) 

; CHRí < 

0) 

5 
























*00 FOR f 

J=1 TO 

2 

¡300 : 

NEXT 

N 





























te 


s 

s 

c 

*10 GOTO 
*20 SOUNI 

TM-TÍ 

480 

,3 

0,15 

,0 

,1 

: AC= 

AC+1 

:GOSUB 

























J 3,50 

9 

80 























s 

'40 GOTO 

820 


































V 

9 

*50 FOR ( 

*=1 TO 

2 

j:SOUND 

3, 

50 

,30, 

15 

,0 

,i 

:N 

EXT 

A 





















te 


s 

60 GOTO 

990 




































s 

*70 LOCATE 1 ,1 

:END 




























=c 


s 

r fcJU LLb 1 

C : RETUR? 
’90 REM 
000 REM 

11 :PKINI#1 ," 

IMPULSO: 

"; 

USING 

"# 

## 


IM 

:PRINT#1 

» 

I MPf 

)C1 

rOE 



¡USING 

"i 

##( 


\ 



) 

n 

..5 

1 

1. 



ER 






























*** 6AMI 

E OV 

* 

*1 



























1010 FOR A*1 TO 20:F0R B=100 TO 200 STEP A:SOUND 1,B,1,15,0,0,31:NEXT 
1020 INK 0,0:INK 1,26:INK 2,15,0:PAPER O:BORDER 0:PEN 1 :MODE O 
1030 PEN 2:LOCATE 6,7:PRINT"GAME OVER" 

1040 PEN 1:LOCATE 4,12:PRINT"PUNTOS:";USING "######";P 
1050 PEN 3:INK 3,15:L0CATE 5,17:PRINT "OTRA? (S/N)“ 

A=1 TO 50:A*=INKEY*:NEXT A 
1 

IF INKEY(60)=0 THEN RUN 250 
IF INKEY(46)=0 THEN CALL O 
1100 GOTO 1080 


1060 FOR 
1070 PEN 




NEXT A 
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SLIPPERY 


10 REM ******* SLIPPERY ******* 

20 REM * ANGEL GARCIA DELGADO * 

30 REM ******** G.T.S. ******** 

40 REM 
50 MODE O 

¿>0 INK 0,0:1 NK 1,26:INK 2,7:INK 3,18 

70 PAPER OrBORDER O 

80 ORIGIN 318,210 

90 FOR a-0 TG 2*PI STEP PI/70 

100 PLOT 0,0,2 

110 DRAW 300*C0S(a),150*SIN(a) 

120 DRAWR O,30*SIN (a) r 3 
130 NEXT a 

140 PRI NT CHRí(22)+CHR4(1) ; 

150 LOCATE 7,12 
í¿>0 PRINT '•SLIPPERY" 


1 70 

1 80 

190 
200 

PRIN 

I NK 

FOR 

INK 

FOR 

INK 

IT CHR# (22) +CHR* 1 
2,7,0:INK 3,0,1£ 
a-1 TU 300:SOUNI 

V Ifi 7-T MI:' ^ 7 1 

(0) ; 

3 

-> 1 ,a,l , 
l 8 

15:NE X T 

a 



2 1 0 

220 

*)**-',• • ‘ 
a-300 TC 
2,7:INK 

■ i ■ * j 

) 1 STEP 
3,18 

-2: SOUNI 

D 1 , a , 1 :1 

SOUND 2, 

a*2,1 :NEXT 

230 

FOR 

a=1 TO ! 

500: NEXT 

a 





240 

FOR 

a=0 TO í 

50: PRINT 

CHR*(7) 

:FOR b=l 

TO 50:NEXT b:NEXT 

250 

260 

MODE 

GOTO 

: 1 

1 310 








270 PRINT TAB(20-LEN<a*> /2> :FOR a=l TO LEN(a*> 

280 b*=MID*(aí,a,l):PRINT b*;:IF b*<>" " THEN PRINT CHR$<7); 

290 NEXT a 

300 PRINT:PRINT:FOR a=l TO 200:NEXT a:RETURN 
310 REM *** INICIO DEL PROGRAMA *** 

320 A*="<< SLIPPERY >>" :GOSUB 270 

330 PRINT:A*="AYUDA AL GUSANO SLIPPERY PARA QUE COJA":GOSUB 270 

340 A$="LOS CARAMELOS QUE HAY EN LA HABITACION":GOSUB 270 

350 A$=" PERO TENIENDO MUCHO CUIDADO, PARA NO":GDSUB 270 

360 Af="CHOCAR CONSIGO MISMO O CONTRA EL MURO":GOSUB 270 

370 PRINT:A*="PARA DIRIGIRLO EMPLEA:":GOSUB 270 

380 A*="Q. ARRIBA":GOSUB 270 

390 A*="A. ABAJO":GOSUB 270 

400 A*="0. IZQUIERDA":GOSUB 270 

410 A*="P. DERECHA":GOSUB 270 

420 PRINT:A$=" PULSA -S- PARA EMPEZAR":GOSUB 270 
430 IF INKEY (60)00 THEN 430 
440 GOSUB 750:P=0:V$="e<?@" 

450 INK O,0:PAPER O:BORDER 0:INK 1,6:INK 2,18,15iINK 3,12:PEN 1:MODE 1 
460 WINDOW 1,40,3,25 
470 X=10:Y=10:D“4 


490 PEN 1:PRINT A*j:FOR 
500 PEN 1 :PRINT"C";jPEN 

A=1 TO 20 

2:PRINT STRING* 

(38,"\") 

;:PEN 1: 

PRINT"C" 
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510 NEXT AaPRINT A*; 

520 GOSUB 710 

530 ENT 1,5,-1,1 

540 IF INKEY(67)=0 THEN D=1 

550 IF INKEY(69)=0 THEN D=2 

560 IF INKEY(34)=0 THEN D=3 

570 IF INKEY(27)=0 THEN D=4 

580 X=X +(1 AND D=2)-(1 AND D=l)aY=Y+(l AND D=4)-(l AND D=3) 

590 LOCATE Y,X:CALL 30000 aC=PEEK(29999) 

600 IF C=92 THEN SOUND 1,100,5,15,0,1;P=P+5sGOSUB 740 
610 IF C=91 OR C=64 THEN GOSUB 640 
620 LOCATE Y,X:PEN 3:PRINT"@" 

630 GOTO 540 

640 REM ::s PIERDE VIDA a:: 

650 V*=MID*(V*,2,3) 

660 FOR A=100 TO 1 STEP -2:S0UND 2 ,A,1,15,0,0,31:NEXT A 
670 GOSUB 710 

680 X=1+INTÍRND*20)aY=1+INT(RND*39) 

690 LOCATE Y,XiCALL 30000:IF PEEK(29999)=92 THEN RETURN 
700 GOTO 680 

710 PEN#1,1tLOCATE #1,1,1aPRINT#1,"PUNTOS a";USING "######";PaPEN#l,3:L0CATE #1,3 
0,1aPRINT #1,V*;" "; 

720 IF LEN(Ví)=0 THEN PEN#1,2 aPRINT#1,"R.I.P."sGOTO 850 
730 RETURN 

740 PEN#1 ,1 a LOCATE #1 ,8,1 aPRINT#l ,USING "######•* jP a RETURN 
750 REM ** CODE SCREEN* ** 

760 DATA 205,96,187,50,47,117,201 
770 RESTORE 760 

780 FOR a=30000 TO 30006tREAD baPOKE a,baNEXT a 

790 GOTO 800 

800 SYMBOL AFTER 32 

810 SYMBOL 64,60,102,223,191,191,255,126,60 
820 SYMBOL 92,0,0,24,44,60,24,0,0 
830 SYMBOL 91,0,239,239,239,0,254,254,254 
840 RETURN 

850 REM *** GAME OVER *** 

860 FOR A=1 TO 20iF0R B=100 TO 200 STEP A aSOUND 1,B,1,15,0,0,31aNEXT BaNEXT A 
870 INK 0,0 aINK 1,26 aINK 2,15,0aPAPER OaBORDER OaPEN 1aMODE O 
880 PEN 2 aLOCATE 6,7aPRINT"GAME OVER" 

890 PEN 1 a LOCATE 4,12 aPRINT" PUNTOS a" jUSING " ######'* ;P 
900 PEN 3aINK 3,15aL0CATE 5,17aPRINT "OTRA? (S/N) M 
910 FOR A=1 TO 50aA^=INKEY*aNEXT A 
920 PEN 1 

930 IF INKEY(60)=0 THEN RUN 250 
940 IF INKEY(46)=0 THEN CALL O 
950 GOTO 930 



DIBUJO 


10 REM ******** DIBUJO ******** 
20 REM * ANGEL GARCIA DELGADO * 
30 REM ******* G.T.S. ********* 

40 REM 

50 m=l :GOSUB 430 aGOSUB 620 
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60 FOR A=0 TO 15:1NK A ,A:NEXT A 
70 PAPER O:RORDER 0:INK 1,26:MODE m 
80 n : “ < 1 AND m-2) + (2 AND m=l)+(4 AND m=0):I=l:INK 
90 ORIGIN 0,0 
100 METE=20100:SAGA=20150 
X=320:Y=210:xb=x:yb = y 
IF INKEY (O) =0 ÜR INKEY(72)=0 
IF I.NKE Y (2) =0 OR INKE Y (73) =0 
IF INKE Y(8)=0 OR INKE Y(74)=0 
IF INKEY<1>=0 OR INKEY (75)=0 


1,26:PEN 


11 O 

120 
130 
140 
150 
160 
C59 : 
170 
180 
¡90 
200 
2 1 0 
220 
.230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
4 1 O 
420 
430 
440 


THEN 

THEN 

THEN, 

THEN 


Y=Y+2 
Y= Y-2 
X=X-n 
X = X+n 


59,1 


TAG:MOVE 


X,Y 


PRINT CHR* ( 160) ; :MQVE X,Y:PRINT CHR*(160) ; ;CALL ?<B 


OR INKEY(76)=0 THEN PLOT 
THEN PLOT :;b ,yb :DRAW X-n , 
THEN GOSIJB 210 


X-n , 
Y—8: 


Y- 8 :xb=x ~n : yb=y-8 
xb=x-n:yb = y-8 


CALI. &EC5 
TAGOFF 

IF INKEY<71)=0 
IF INKEY(47)=0 
IF INKEY<68)=0 
GOTO 120 

CALL mete.-FOR a=l TO 20 : ai - I NKE Y *: NE X T a:WINDOW #0,1,20,20,25 
CLS : INPIJT "COMANDO:";C* 
c*=UPPER*(ct) 

B*=MID*< C* , 1 ,2) :A*=MID* (Ct,3, LEN(C*)-2> 

PRINT"OK."; B*;"," ;A* 

FOR A=1 TO 800:NEXT A 

THEN CALE SACArSAVE A*,B,49152,16384:SOUND 1,200:CALL METE 
LOAD A*,49152:SOUND 1,100:CALL METE 

M=VAL(A4):MODE M:n=(l AND m=2)+(2 AND m=l)+<4 AND m=0) 
BORDER VALIA*) 

MOVE X, Y, VAL IA*) 

INPUT "COLOR:";CO:INK VALIA*),C0 
R-VAL (A*) .-GOSUB 380 
CALL SACA:CLG:CALL METE 
GOSUB 430 


IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 


B*="SA" 
B*="LD" 
B*-"MO" 
B*="BÜ" 
b*="TI " 
B*=--"DT" 
B*="CI" 
B*="CL" 
b*="IN" 


THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 


REM 

CALL SACA:RETURN 
REM -CIRCULO- 

CAL L SACA:DE G:XÜ=X-N:Y0=Y-8:0RIGIN 
B-A—10:PL0T R*COSIB),R*SINIB) 

DRAW R*COS(A),R*SINIA) 

NEXT A : OR IGIN 0,0: CALL METE :RETIJRN 

PEN 1 :1NK 1,26:MODE 2 

PRINT"- DIBUJO - AUTOR: ANGEL 


XO,YO:FOR A=0 TO 360 STEP 10 


GARCIA DELGADO 


— G.T.S. - 1986 


450 PRINT:PRINT"* 
460 PRINT .-PRINT"* 
470 PRINT:PRINT"* 
OSICION ACTUAL" 
480 PRINT:PRINT"* 
INSTRUCCIONES:" 
490 PRINT:PRINT" 


MOVIMIENTO LAPIZ, CON LAS TECLAS DEL CURSOR" 

Z. DIBUJA UN PUNTO" 

SPACE. TRAZA UNA LINEA DESDE EL ULTIMO PTO. TRAZADO 


500 

510 

520 

530 

540 

550 

560 

570 

580 

590 


TAB. ACCEDE AL MODO COMANDO, DONDE DISPONES DE LAS 


HASTA LA P 
;l GUI ENTES 


PRINT" 

PRINT" 

PRINT" 

F'R I NT " 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

REM 

PRINT:PRINT:PRINT"~ 


TI 

CI 

DT 

SA 

LD; 

CL . 

BO 

IN. 


X . 

X . 
X . 


MO X. FIJAR EL MORO DE PANTALLA 
SALECCIONA LA TINTA EN CURSO <0 
TRAZA UN CIRCULO, CON CENTRO EN 
DEFINE EL TINTERO DE LA PLUMA X" 
NOMBRE . GRABA LA F'ANTALLA CON EL NOMBRE 
NOMBRE. CARGA UNA PANTALLA" 

BORRA LA PANTALLA" 

X. PONE EL BORDE DEL COLOR X" 

IMPRIME ESTA PAGINA DE INSTRUCCIONES" 


(0,1 o 2)" 

15),(0=B0RRAR)" 

EL CURSOR Y RADIO 


X ' 


'NOMBRE' 


1 


PULSA -S- PARA CONTINUAR — 


tí 


600 IF INKEY (60)00 THEN 600 
610 MODE M:RETURN 

620 REM SUBRUTINAS C.M.: S-9000 L-9045 1-20100 0-20150 
630 DATA 17,0,79,33,0,192,1,0,64,237,176,201 
640 RESTORE 630:F0R a=20100 TO 20111:READ b:POKE a,b:NEXT a 
650 DATA 17,0,192,33,0,79,1,0,64,237,176,201 
660 RESTORE 650.-F0R a=20150 TO 20161 :READ b:POKE a, b: NE X T a 
670 SYMBOL AFTER 160:SYMB0L 160,0,0,15,63,227,63,15,0 
680 RETURN 
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LA MANZANA ENVENENADA 

* LA MANZANA ENVENENADA *** 

20 REM *** ANGEL GARCIA DELGADO **** 

30 REM ********** G.T.S. *********** 

40 REM 

50 SYMBOL AFTER 160 

60 SYMBOL 160,60,6,59,113,1,29,63,103 
70 S YMBOL 161 ,0,0,0,0,0,120‘, 252,254 
80 SYMBOL 162,111,95,95,127,127,63,30 
90 SYMBOL 163,254,254,254,254,254,252,120,0 


loó 

MUDE 0:: INK 0 

,24:INK 

1 ,0:1NK 

2,6:INK 

3,18 





1 10 

BURDER 24:PAPER 0:CLS 







120 
140 

150 

URÍUIN 320,200 

FOR A=0 TO 2*PI STEP 
PLOT 0,0,3:DRAWR COS 
NEXT A 

PI/50 
(A)*300, 







SIN < A)*1 

80 





160 





1 70 

PRINT CURTI? 

2) +CHRT( 

1 ) 







180 

PEN 1 









190 

LOCATE 8,13:1 

PRINT"MANZANA" 







200 
da i r> 

FOR A--'t TO 1 

T K1L--’ r J 4 CU ' > n 

000 STFP 

4: SOIJND 

1 1 ,A,1, 1 

5,0,0,31 

. :N! XT A 




jC I '■J 

1 NK 0,10,4*» 
FOR A-í TO 1 

r a 

000 STEP 

5: SOLJNLi 

i 1 ,A,1 ,1 

5:SOUND 

2,A+10,1 

l,15:S0UND 3,100» 


Ni X 

J- 

23u 

«í=CHRf(160i 

+CHRÍ<16 

1)4 CHRÍ( 

10MCHRÍ 

(8)+CHRÍ 

P (8) +CHRÍ i ] 62) ♦LHR-4 (163) 


240 

I NK 3,1 8 









250 

MODE 1 









26'i 
'"0 ■ / 1 1 

PEN 1 

PRINT " •.. ! LA 
PRINT SPRINT si 
PRINT :FRINT”I 

MANZANA 
PRINT"VE 
PERO SOL' 








Ai- t 

280 

C fX Vl-IXiIImHL'H f \ 

COMIENDOTE LAS 

0 LAS MADURAS. Y 

A . G . I.t. 
MANZANAS 
A QUE SI 

í nr .1 ncrc'm •* 



290 

MUERDES 

5" 



300 

PRINT "UNA OU! 

E ESTE VERDE PERDERAS 11 ' 

H 





310 

PRINT :PRINT :l 

PRINT"PARA ELFGI 

R LAS MANZANAS I 

NTROLiUCE" 




320 PRINT SPRINT"PRIMERAMENTE LA FILA, Y LUEGO LA COLUMNA" 

330 FOR A= 1 TO 39 STEP 4 :F‘EN 2:LOCATE A,20:PRINT A$;:PEN 3:PRINT AT :NEXT A 

340 INK 2,6,18:1NK 3,18,6 

350 IF INKEY»="“ THEN 350 

360 INK 2,6:INK 3,18 

370 MODE 1:P=0:DIM M(8,5) 

380 PEN 1 

390 FOR A=1 TO 10:M(1 + INT<RND*8) ,1 +1NT<RND*5))=2 

400 NEXT A 

420 MODE 1 

430 ORIGIN 0,200 

440 PLOT O,150,1:DRAWR 700,O 

450 PLOT O,-150:DRAWR 700,0 

460 WINDOW #1,12,35,9,19 

470 PEN#1,1 

480 LOCATE 12,7 :F-RINT"A B C D E F G H" 

490 B$="l 2345 " 

500 FOR X=1 TO 10 STEP 2 

510 PEN 1:LOCATE 10,X+9:PRINT MID*(B*,X,1) 
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520 FOR Y=1 TO 16 STEP 2 
530 PEN 1:LOCATE#1,Y,X 
540 PRINT#1, Aí 
550 NEXT Y :NEXT X 
560 WINDOW #2,10,40,24,24 
570 PEN#2,1 
580 P=0 
590 GOSUB 740 
600 BOUND 1,200,20,15 
610 INPUT #2,” FILA (1-5):”;F 

620 IF F<1 OR F>5 THEN BOUND 1,400,50:GOTO 610 
630 INPUT #2,"COLUMNA <A-H):";C$ 

635 C*=UPPER$<C$) 

640 B*="ABCDEFGH" 

650 C=0:F0R A=1 TO LEN <B$) 

660 IF C$=MID*<B*,A,1) THEN C=A 
670 NEXT A:IF C=0 THEN SOUND 1,400,50sGOTO 630 
680 B=M(C,F) 

690 IF B=2 THEN PEN#1,3:GOSUB 730:S0UND 1,400,50:GOTO 750 
700 IF B=0 THEN M <C,F)=1:P=P+5:PEN#1,2:GOSUB 730:FOR A=1 TO 1000 STEP 10:SOUND 1 
,A,1,15:NEXT A 

710 IF B=1 THEN SOUND 1,400,200:GOTO 610 
720 GOTO 590 

730 LOCATE #1,C*2-1,F*2~1:PRINT #1,A$¡RETURN 

740 LOCATE 14,2:PRINT "PUNTOS;PsRETURN 

750 FOR A=400 TO O STEP -1iSOUND 1,A,1:NEXT A 

760 FOR C=1 TO 8:F0R F=1 TO 5 

770 N=M(C,F):IF N=0 OR N=1 THEN PEN#1,2 

780 IF N=>2 THEN PEN#1 ,3 

790 GOSUB 730 

800 SOUND 1,100,5 

810 FOR N=1 TO 50:NEXT N 

820 NEXT F :NEXT C 

830 PRINT #2," *** GAME OVER ***" 

840 FOR A=1 TO 5000:NEXT A:RUN 220 



SOGA 


10 REM 11 *** * ***** ******** ********** 

20 REM **** SOGA *** 1986 G.T.S. **# 

30 REM **#* ANGEL GARCIA DELGADO *** 

40 REM $***t*t*t*****tt*****tt**1(*t* 

50 GOSUB 500 

60 SYMBOL AFTER 199 

70 SYMBOL 200,0,7,15,13,14,7,0,31 

80 SYMBOL 201,0,224,64,96,64,192,0,0 

90 SYMBOL 202,32,37,34,33,126,227,185,207 

100 SYMBOL 203,128,0,132,123,129,126,0,128 
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110 SYMBOL 204,192,195,225,80,48,104,161,3 

120 SYMBOL 205,0,160,208,232,104,208,232,244 

130 SYMBOL 206,0,7,2,6,2,3,0,0 

140 SYMBOL 207,0,224,240,176,112,224,0,248 

150 SYMBOL 208,1,0,97,222,129,126,0,1 

160 SYMBOL 209,4,164,68,132,126,199,157,243 

170 SYMBOL 210,0,5,11,23,22,11,23,47 

180 SYMBOL 211,3,195,135,10,12,22,133,192 

190 SYMBOL 212,0,0,0,119,238,0,0,0 

200 BORDER 26:M0DE 1:INK 0,26¡INK 1,0:INK 2,15:INK 3,3 
210 WINDOW #1,2,39,2,2:PEN #1,1¡PAPER #1,0¡CLS #1 
220 PAPER O: PEN 1 

230 A$=" "+CHR*(200)+CHR*(201)+" ”+CHR$(206)+CHR$(207)+" " 

240 C*=""¡FOR A=1 TO ? ¡C*=C$+CHR$(212) ¡NEXT 

250 B$=" "+CHR*(202)+CHRÍ(203)+C$+CHR$(208)+CHR$(209)+ " " 

260 C*=" "+CHRÍ(204)+CHR$(205)+" "+CHR$(210)+CHR$(211)+" " 


270 T=2¡LOCATE 
280 NEXT A 

1,5¡FOR A=1 TO 200¡PRINT CHR*(231>;¡f 

^EN T ¡’ 

r= 

T+l ¡ 

IF 

T>3 

THEN 

T=2 

290 PLOT 0,145 
300 FOR A=0 TO 
310 PLOT 0,399 

TOA DCKI i 

¡DRAWR 0,100¡DRAWR 63C 
130 STEP 4 ¡PLOT 0,a¡E 
¡DRAWR 633,0¡DRAWR 0,- 

>,0¡DRAWF 
IRAWR 63( 
■40 ¡DRAWF 

< 0,-100; 
), 0 ¡NE X T 
¡ -633,Oí 

¡DRAWR 

a 

¡DRAWR 

—1 

0 

630,i 

,40 

0 







330 PRINT #1," PREPARADOS..."¡SOUND 1,478,100,15 

340 FGR A=1 TO 1000:NEXT 

350 PRINT #1," LISTOS.iSOUND 1,400,100,15 

360 FOR A=1 TO 1000:NEXT 

370 PRINT #1," !!!!! AECLANTE !!!!!" 

380 SOUND 1,100,50,15 
390 x=12 

400 IF INKEY(67)-O THEN X=X-1:IF X=4 THEN G=1¡GOTO 450 

410 LOCATE X,13:PRINT A*¡LOCATE X,14¡PRINT B*¡LOCATE X, 15¡PRINT C$ 

420 IF INKEY(27)=0 THEN X=X+1¡IF X>19 THEN G=2¡GOTO 450 

430 LOCATE X,13¡PRINT A$¡LOCATE X,14¡PRINT B*¡LOCATE X,15 ¡PRINT C$ 

440 GOTO 400 

450 PRINT #1," GANA EL JUGADOR";G 

460 INK 2,15,3¡INK 3,3,15 

470 FOR A=0 TO 500 STEP 2¡S0UND 1,A,1,15¡A*=INKEY*¡NEXT A 
480 IF INKEY$=""THEN 480 
490 RUN 60 

500 INK O ,26¡INK 1,0,8¡INK 2,1 
510 BORDER 26¡M0DE O 
520 PEN 1 

530 PRINT "******* SOGA *******" 

540 PEN 2¡PRINT" "¡PRINT"TIRA DE LA SOGA !!!" 

550 PRINT" "¡PRINT" GANARA EL JUGADOR" 

560 PRINT" "¡PRINT"QUE SE LLEVE LA SOGA" 

570 PRINT" "¡PRINT" "¡PRINT" Q. JUG IZQUIERDA" 

580 PRINT" "¡PRINT" P. JUG. DERECHA" 

590 PEN 1¡PRINT" "¡PRINT" "¡PRINT"*****»**************" 

600 PEN 2¡PRINT" "¡PRINT" "¡PRINT" ANGEL GARCIA D." 

610 FOR B=1 TO 2 
620 FOR A=1 TO 500 
630 SOUND 1,A,.1,15 
640 SOUND 2,A+10,1,15 
650 SOUND 3,500-A,1,15 
660 NEXT A 
670 NEXT B¡RETURN 
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TRAGON 


10 

20 

30 

40 

50 

60 

70 

SO 

90 

* 

100 

110 

120 

130 

140 

150 

160 

170 


REM *************** TRAGON ***************** 

REM *** ANGEL GARCIA DELGADO ** G.T.S. ***** 

REM **************************************** 

REM 

SYMBOL AFTER 160 

SYMBOL 160,36,102,239,237,239,255,126,60 
SYMBOL 161,0,0,0,24,24,24,0,0 
MODE 1 

PRINT"***************************************** 
GTS ******************************************" 

PRINT 
FRINT" 


TRAGON * ANGEL GARCIA DELGADO 


CAPTURA LAS BOLAS DE CARAMELO QUE 
PRINTSPRINT" DE LA PARTE SUPERIOR DE LA 
PRINT 

PRINTSPRINT SPRINT" 

PRINT s PRINT" CURSOR 

PRINTSPRINT" CURSOR 


CAEN" 
PANTALLA. 1 


CONTROLESs“ 

IZQUIERDA" 

DERECHA" 


PRINTSPRINT SPRINT"***************************************" 


180 FOR 

A=1 

TO 6000sNEXT A 








190 FOR 

A= 1 

TO 1000 

STEP 3 s 

SOUND 1,A, 

1sNEXT fi 

i 





200 DEFINT < 

a-z 










210 MODE OsA$=CHR*( 

160)sB*= 

CHRt(161)+CHR#(8)+CHR*(11) 

+CHR*<32) 




220 

230 

240 

250 

260 

270 

280 


WINDOWttl,1,5,1,25 
WI ND0W#2,16,20,1 ,: 
WINDOW 6.16.1.24 

n>c 

































INK 0,0sBORDER O:PAPER OsCLS 

INK 1,26 s PEN 1sPEN#l,1sPEN#2,l 

INK 2,4 sPAPER#1,2sCLS#lsPAPER#2,2sCLS#2 


,1 ,3 sPRINT#!," 


BOL"sPRINT#!sPRINT#! 


O" 

O" 


X<1 THEN X = 1 
X>10 THEN X=10 


LOCATE#1 

290 LOCATE#2,1,3 sPRINT#2," PUN"sPRINT#2iPRINT#2," 

300 P=0 
310 X=5 

320 FOR B=1 TO 20 
330 LOCATE#1,1,5sPRINT#1,B 
340 L0CATE#2,1,5 sPRINT#2,P 
350 H=1+INT(RND*10) 

360 1=2 

370 LOCATE X,23sPRINT" " 

380 IF INKEY(8)=0 THEN X=X-lsIF 
390 IF INKEY(1)=0 THEN X=X+lsIF 
400 LOCATE X,23sPRINT A$; 

420 LOCATE H,IsPRINT B*s1=1+1 

430 IF 1=23 THEN IF X=H THEN SOUND 1,100,10,15sP=P+lsGOTO 
440 IF I>24 THEN SOUND 1,500,10,15sGOTO 460 
450 GOTO 370 

460 LOCATE H,I-1sPRINT" "sNEXT B 
470 MODE O 

480 LOCATE 6,11sPRINT"GAME OVER" 

490 LOCATE 5,13sPRINT"PUNTOS.."}P 

500 FOR A=1 TO 200 

510 SOUND 1,A,5,15,O,O,31 

520 NEXT A 

530 RUN 50 
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AS DE CORAZONES 


10 REM ****** AS DE CORAZONES ****** 
20 REM *** ANGEL. GARCIA DELGADO **** 
REM ********* G.T.S. 


************ 


30 

40 REM 

50 MODE O:INK 0,26:INK 1,0:INK 2,8 
60 PAPER O sBORDER 26:PEN 1 :CLS 
70 ORIGIN 316,200 
80 DEG 

90 FOR A=0 TO 360 STEP 5 

100 PLOT 250*C0S(A),40*SIN(A),2 

110 DRAWR 50*C0S(A),110*SIN(A) 

120 SOUND 1 ,A,1,15 


.I' 


140 PRIN 

T CHR4 

(22) 

+CHR* < 

1) 





.. I .1.. 

i 

i 

j. ...I 


150 PEN 

1 









.1.i. 

. 




! 1 1 


160 TAG 

1 C'l flT 



1 -OOTKJT 

»• ac nc r 

'nc*A7nKjrrc 

^- TARm 


|..1.1. 

. 

. 



. r .í."í. 

.j 


180 INK 2,8,26 


.L 


i... 


.I. 


i 


"t.r 


. 4 - 


.i.. 


.f.t.)- 


T 


xi:: 


190 FOR A=0 TO 500 
200 SOUND 1,A,1,15 
210 SOUND 2,A+5,1,15 
220 SOUND 3,500-A,1,15 
230 NEXT A 

240 FOR A~0 TO 1000:NEXT A 
250 MODE 1 

260 PRINT "****** AS DE CORAZONES **** A.G.D. *#***" 

270 PRINT " ":PRINT" DESCUBRE CUAL DE ESTAS CARTAS ES" 

280 PRINT" M :PEN 2:PRINT" EL AS DE CORAZONES" 

290 PEN 1 SPRINT" " 

300 PRINT " PARA ELEGIRLA PULSA 1,2 o 3" 

310 LOCATE 11,21:PRINT"1 2 3" 

320 GOSUB 560 
330 AC=0:FA=0:GOSUB 770 
340 FOR N=1 TO 3:GOSUB 600:NEXT N 

350 FOR A=1 TO 25:S0UND 1 ,1OO+RND*10,1,15:FOR B=1 TO RND*200:NEXT B:T*~INKE Y $ : NE 
XT A 

360 S=1 + INT <RND*3) 

THEN B*=CHR*(228)sEí=CHR*(227):D*=CHR*(229) 


.r 


.. 


4 . 


-i. 


370 

380 

390 


IF S=1 


THEN SOUND 1 ,800,20,15sGOTO 410 


):E*=CHR*(227):D*=CHR*(229) 
IF S=2 THEN E*=CHR$(22B):B$=CHRÍ(227):D*=CHR$(229) 
IF S=3 THEN Dí=CHR*(228):B*=CHRÍ(227):Ef=CHRí(229) 
400 SOUND 1,200,20,15 
410 T$=INKEY*:IF T$="" THEN 410 
420 IF T$<>"1" AND T$0"2" AND T$<>"3" 

430 T=VAL(T*) 

440 N=T:IF T=1 THEN AÍ=BÍ 
450 IF T=2 THEN A*=Eí 
460 IF T=3 THEN AÍ=DÍ 
470 GOSUB 660:SOUND 1,20,20,15 
480 FOR A=1 TO 500:NEXT A 
IF T=S THEN GOSUB 880 
IF TOS THEN GOSUB 910 
510 GOSUB 770 
520 A*=B$:N=1:GOSUB 660 


X 


490 

500 


u 


.j-- 

] 


-4 . 


4 - 


.f 


i 


Í : H 


H 

i. 


4 . 


44 


.1.i. 




.1.j..- 




i.r 
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530 A$=E$ :N=2 :G0S(JB 660 

540 A*=D$:N=3:G0SUB 660 

550 FOR A=1 TO 1500:NEXT A:GOTO 340 

560 WINDOW #1,8,15,10,19 

570 WINDOW #2,17,24,10,19 

580 WINDOW #3,26,33,10,19 

590 RETURN 

600 LOCATE #N,1,1:PRINT #N ,CHR$ < 15CU U54) |CHR$ 1154) ;CHR$ (154) ;CHR$ (154) ;CHR 

$(154);CHR$(156) 

610 C$=CHR*(149)+CHR$(207)+CHR$(207)+CHR*(207)+CHR*(207 > +CHR*(207)+CHR$(149) 

620 PRINT #N,C$:PRINT #N,C$:PRINT #N,C$:PRINT #N,C$:PRINT #N,C$:PRINT #N,C$:PRIN 
T #N,C$:PRINT #N,C$ 

630 PRINT #N,CHR$(147);CHRÍ(154);CHR$(154);CHR$(154>;CHRf(154);CHR$(154);CHR*<15 

3) 

640 BOUND 1,200,5,15 
650 RETURN 

660 LOCATE #N,1,1 SPRINT #N,CHR$<150);CHR$(154);CHR$<154);CHR$(154);CHR*(154);CHR 
$ (154);CHR$(156) 

670 PR Í NT #N , CHRt- (149) { " 1 " ; " "+CHR$<149) 

680 PRINT#N,CHR$(149) ;A$;" ”+CHR$<149) 

690 PRINT#N,CHR$(149)+" "+CHR*<149) 

700 PRINT#N,CHR$(149)+“ "+CHR$(149> 

710 PRINT#N,CHR$(149)+ " "+CHR$(149) 

720 PRINT#N,CHR$(149)+" “+CHR$(149) 

730 PRINT#N,CHR$(149)";A$;CHR*(149) 

740 PRINT#N ,CHR$(149) ";"1";CHR$(149) 

750 SOUND 1,100,5,15 
760 RETURN 

770 LOCATE 6,25:PRINT"ACIERTOSr";AC:LOCATE 23,25:PRINT"FALLOS:";FA 
780 IF FA>4 THEN GOTO 800 
790 RETURN 

800 REM *** FINAL *** 

810 FOR A=0 TO lOOOtSOUND l,A,liNEXT A 

820 MODE O 

830 PEN 2 

840 INK 2,15,8 

850 LOCATE 6,12iPRINT"GAME OVER" 

860 FOR A=1 TO 5000:NEXT A 
870 RUN 
880 AC=AC+1 

890 FOR B=1 TO lOiFOR A=0 TO 26:S0UND 1 ,A, 1 ,15«NEXT AiNEXT B 

900 RETURN 

910 FA=FA+1 

920 SOUND 1,500,50,15 

930 FOR A=500 TO 700:S0UND 1,A,1,15iNEXT A iRETURN 



CLIMOGRAMA 


10 REM t****tm» CLIMOGRAMA ttttttttttt 
20 REM *** ANGEL GARCIA DELGADO «*S»S*t* 
30 REM *********** G.T.S. **ttt***tt*SS 
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40 REM 

50 MODE O:INK 0,26:INK 1,0:INK 2,8 
60 PAPER OsBORDER 26:PEN 1sCLS 
70 ORIGIN 316,200 
80 DEG 

90 FOR A=0 TO 360 STEP 5 
100 PLOT 170*C0S(A),40*SIN(A),2 
110 DRAWR 100*C0S(A),80*SIN(A) 

120 SOUND 1 ,A,1,15 
130 NEXT A 

140 PRINT CHRí(22)+CHRÍ(1) 

150 PEN 1 

160 LOCATE 6,13SPRINT "CLIMOGRAMA" 

170 INK 2,8,26 
180 FOR A=0 TO 500 
190 SOUND 1,A,1,15 
200 SOUND 2 ,A+5,1,15 
210 SOUND 3 ,500-A,1,15 
220 NEXT A 

230 FOR A=0 TO lOOOaNEXT A 
240 MODE 1 
250 PEN 1 SPRINT M 
260 PRINT" "sPRINT" 

AS" 

270 PRINT" "SPRINT" Y TEMPERATURAS DE TODO EL ANNO" 

280 PRINT" “SPRINT" "sPRINT" EL GRAFICO DE BARRAS REPRESENTA" 

290 PRINT" "sPRINT" LAS PRECIPITACIONES EN «P(n/m^2 (ROJO)" 

300 PRINT" "sPRINT" "sPRINT" EL GRAFICO DE LINEAS (AZUL) REPRESENTA" 

310 PRINT" "sPRINT" LAS TEMPERATURAS EN GRADOS CENTIGRADOS" 

320 PRINT " "sPRINT " "sPRINT.PEN 2sPRINT " INTRODUCE LOS DATOS. POR FAVOR 


ESTE PROGRAMA DIBUJA UNA GRAFICA" 

(" ; sPEN 2 sPRINT"CLIMOGRAMA"$ sPEN 1sPRINT") CON LAS LLUVI 


9 

3 


330 PEN IsWINDOW #1,1,40,23,25 
340 DIM D(12,2) 

350 DATA ENERO,FEBRERO,MARZO,ABRIL,MA Y O,JUNIO,JULIO,AGOSTO,SEPTIEMBRE,OCTUBRE,NO 
VIEMBRE,DICIEMBRE 
360 RESTORE 350 

370 CLS#1:PRINT#1 ," ":PRINT#1,"************* TEMPERATURAS *S*tS**SStttt" 

380 SOUND 1,200,100,15 
390 FOR A=1 TO 1500:NEXT A 
400 FOR A=1 TO 12 sREAD Mí 

410 CLS #1sPRINT «1,"TEMPERATURA DEL MES DE ";MÍ:PRINT#1," “ 

420 INPUT #1 ,D(A,1) sIF DÍA,1X0 OR D(A,1>>55 THEN SOUND 1 ,478,50,15sGOTO 410 
430 SOUND 1,200,5,15 
440 NEXT A 

450 CLS#1sPRINT#!," -tPRINTffl,"»«***«***** PRECIPITACIONES 

460 SOUND 1,100,200,15sFOR A-l TO 1500:NEXT A 

470 RESTORE 350sF0R A-l TO 12iREAD Mí 

480 CLS#1sPRINT#l,"PRECIPITACIONES MES DE ";MÍ 

490 PRINT#!," ":INPUT#1,D(A,2) 

500 IF D(A,2)<0 OR D(A,2)>550 THEN SOUND 1,478,50,15sGOTO 480 
510 NEXT A 

520 MODE 1sINK 1,OíINK 2,6:INK 3,14 

530 PEN 2sPRINT"MES: TEMPERATURA: PRECIPITACIONES:" 

540 PEN 1 
550 RESTORE 350 
560 M=0 sP=0 
570 FOR A-l TO 12 

580 READ Mí sPRINT Mí;TAB(13){D(A,1);TAB(26)}D(A,2) 

590 M=M+D(A,1)sP=P+D(A,2) 

600 NEXT A 

610 PRINT " "sPEN 2:PRINT "MEDIA ANUAL: ";M/12 
620 PRINT " " 

630 PEN 3sPRINT "TOTAL PRECIPITACIONES: ";P 

640 PRINT " "SPRINT" "sPRINT"PULSA -G- PARA VER LA GRAFICA »>" 

650 IF INKEY (52)00 THEN 650 
660 SOUND 1,100,50,15 
670 MODE 1 
680 PEN 1 
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690 LOCATE 10,25:PRINT "EFMAMJJASOND" 

700 ORIGIN 128,25 

710 PLOT 0,0,1«DRAWR 0,350:PL0T 0,0 
720 DRAWR 399,0:DRAWR 0,350 
730 K-350/550 sFOR A=0 TO 500 STEP 50 
740 B=A*K 

750 MOVE -70,B+4:TAGtPRINT A/10}«MOVE 420,B+4«PRINT A}«TAGOFF 
760 PLOT -8,B:DRAWR 8,0:PL0T 400,B«DRAWR 8,0 
770 NEXT A 

780 PEN 3 s LOCATE 3,2:PRINT " 'C" i LOCATE 35,2:PEN 2«PRINT "«m/in A 2 

790 ORIGIN 128,26 
800 FOR A=1 TO 12 

810 FOR-B=0 TO DIA,2)«PLOT <32*A)-24,B*K,2«DRAWR 2B,0:NEXT B 
820 NEXT A 

830 X=24:Y=D(1,1)* 10*K 

840 PLOT X+l,Y,1«PLOT X+2,Y«PL0T X+3,Y 
850 PLOT X+l, Y+2:PLOT X+2,Y+2«PL0T X+3.Y+2 
860 FOR A=2 TO 12 
870 X=(32*A)-8:Y=D<A,l)*KtlO 
oda npAU y y q 

890 PLOT X+llY,líPLOT X+2,Y:PL0T X+3,Y 
900 PLOT X+l ,Y + 1:PLOT X+2,Y+1:PLOT X+3,Y + 1 
910 PLOT X+l,Y+2:PL0T X+2,Y+2íPL0T X+3,Y+2 
920 NEXT A 

930 LOCATE 13,1:PRINT "OTRA GRAFICA (S/N)" 

940 IF INKÉY(60)=0 THEN RUN 240 
950 IF INKEY(46)=0 THEN CALL O 
955 A$=INKEY* 

960 GOTO 940 



DONUTS 


10 REM ********** DONUTS ************ 

20 REM *** ANGEL GARCIA DELGADO ***** 

30 REM ********** G.T.S. ************ 

40 REM 

50 FOR a=l TO 15:INK a,26-a 
60 NEXT a 

70 INK O,O:PAPER OrBORDER O 

80 MODE O 

90 ORIGIN 320,200 

100 FOR a=2 TO 15 

110 FOR b=0 TO 2*PI STEP PI/5 

120 PLOT 20*a*C0S(b) ,20*a*SIN(b) ,a 

130 DRAWR 50*COS (a),50*SIN(a) 

140 DRAWR 50*SIN (a) ,50*C0S(a) 

150 DRAW 20*a*C0S (b),20*a*SIN(b) 

160 PLOT RND*320-RND*320,RND*200-RND*200 
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& 

170 NEXT b 









180 NEXT a 


190 LOCATE 8,13:1NK 1,26:PEN 1:PRINT CHR*(22)+CHR*(1);"DONUTS" 
200 FOR a=2 Tü 15 


210 IF a>2 THEN INK a-1,0 

220 INK a ,26-a 

230 FOR z = 100 TO 200 STEP 10:S0UND 1 ,z , 1 , 15:NEXT z 

240 NEXT a 

nCA T kit,-* 4 c A 



¿□U INK 1 

260 IF INKEYtO"" THEN GOTO 280 

270 GOTO 200 

280 INK 1,26:M0DE 2:PEN 1 

290 WINDOW 1,80,23,25 



300 ORIGIN 320,200 

310 SOUND 1,200,10 

320 INPUT "ANCHURA DEL DONUTS (0-320) ;AN 

330 INPUT "ALTURA DEL DONUTS (0-150):";AL 

340 INPUT "GROSOR (1-150):";G 



350 INPUT "CONCENTRACION (1-200) :" ;C 

360 CLG 

370 DEG 

380 FOR M=0 TO 360 STEP C 

390 X=AL*SIN(M):Y=AN*COS(M> 

400 GOSUB 430 

410 NEXT M 

420 GOTO 310 

430 DEGrMOVE X,Y+G:FOR A=0 TO 400 STEP 10 





440 DRAW G*SIN(A)+X,G#COS(A)+Y:NEXT A:RETURN 




INSTRUMENTOS 


10 REM ** INSTRUMENTOS ** 

20 REM * * 
30 REM ** ANGEL GARCIA ** 
40 REM * * 


50 REM t* G. T. S. ** 

60 REM 

70 INK 0,0:INK 1,26:INK 2,8 

80 BORDER 0:PAPER Ü:PEN 1 

90 MODE 0 


100 ORIGIN 310,200 

110 FOR A=0 TO 2*PI STEP PI/50 

120 PLOT 0,0,2:DRAW SIN(A)*(150+RND*180),COS(A)*<80+RND*160) 

130 NEXT A 

146 PRTNT r.HR* í y? 1 • rHfit l 1 \ 

150 SPEED INK 30,30 

160 LOCATE 5,13:PEN 1:PRINT "INSTRUMENTOS" 

170 INK 2,8,0 
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180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 


RESTORE 1030 

READ A,B:IF A=-l THEN GOTO 180 
F=440* (2' s (B/12) ) :T=ROUND (12500/F) 

SOUND 1,T*5,A*10,15 
SOUND 2,T*3,A*10,15 
IF INKEYíO"" THEN 250 
GOTO 190 
REM *** MENU *** 

MODE 1 
INK 3,11 
INK 2,8 

ORIGIN O,0:DRAWR 600,0,1:DRAWR 0,399:DRAWR -6O0,0:DRAWR 0,-399 
WINDOW 8,32,6,25 
PRINT " "SPRINT" " 

PEN 3SPRINT "**»* ELIGE TU OPCION *»**" 

PRINT " " 

PEN 1 SPRINT “ 1. CUESTIONARIO" 

PRINT " " 

PRINT " 2. LISTAR DATOS" 

PRINT " " 

PRINT " 3. TERMINAR" 

PRINT " " 

PRINT" " 

PEN 3 : PRINT"*************************" 

IF INKEY(64)=0 THEN GOTO 470 
IF INKEY(65)=0 THEN GOTO 890 
IF INKEY(57)=0 THEN CALL O 
GOTO 430 


470 

480 

490 

REM **** CUESTIONARIO * 
MODE lsINK 1,26: INK 2,2» 
POR P-l TÜ 20 

X%% 

OsINK 3, 

8 




500 

510 

MODE 1sPEN 1sPRINT "***; 
N=INT (RND*3> 

******* ¡ 

LOS INSTRUMENTOS 

; ******* 

i*****" 

520 

IF N=0 THEN RESTORE 970 







530 

540 

550 

560 

570 

580 

590 

600 


Z=0 TO NNsREAD IísNEXT Z 


IE N=1 THEN RESTORE 990 
IF N=2 THEN RESTORE 1010 
READ R$,NN:NN-INT(RND*NN):FOR 
PEN 3 SPRINT" " 

PRINT"PREGUNTA:";P;TAB(17);"INSTRUMENTO:";I $ 
PRINT " "sPEN 2 
PRINT " " 

PRINT "A 


QUE GRUPO DE INSTRUMENTOS CORRESPONDE"SPRINT " "sPRINT” 
NSTRUMENTO CITADO:" 

610 PRINT" "sPRINT" " 

620 PEN 3 sPRINT " (PULSA 1,2 o 3i " 

630 PEN 1sPRINT " " 

640 PRINT" "sPRINT " 1. CUERDA" 

650 PRINT" "sPRINT " 2. VIENTO" 

660 PRINT" "sPRINT " 3. PERCUSION 1 

670 SOUND 1,100,10 
680 REM 

690 IF INKEY(64)=0 THEN NR=0:60T0 730 
700 IF INKEY(65)=0 THEN NE-1sGOTO 730 
710 IF INKEY(57)=0 THEN NR=2sGOTO 730 
720 GOTO 680 

730 PEN 2sPRINT " "sPRINT" "sIF 
*'";R$ :FOR B=1 TO 3sF0R A=15 TO O 


D 1,A,1 s NE XT A,B:AC=AC+1 
740 IF NRON THEN PRINT "INCORRECTO 
=-1 TO lOOsPLOT RND*600,RND*400:NEXT A 
750 NEXT P 

760 MODE OsFOR A=1 TO 15:INK A,27-A:NEXT 
770 PEN 5sPRINT "**** RESULTADOS **«*" 
780 PRINT" "sPRINT" " 

790 PEN 2sPRINT " ACIERTOS.";AC 

800 PRINT " " 

810 PEN 3 sPRINT " FALLOS." ;20-AC 

820 PRINT" "sPRINT" "sPRINT" " 
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NR=N THEN PRINT "!!!CORRECTO!!! 
STEP -1sINK O ,A sSOUN 


LA 


LA RESPUESTA ERA ";RísSOUND 


A 




































































r» 

EL I 









RESPUESTA ES 

,600,100: 

¡FOR A 










ruiri rtSts¿r^éJii¿JjLíL!L- 













t 


4 . 


830 PE N 1 :PRINT" PORCENTAJE : " ;AC*5 ; ”'Á " 

840 F’RINT" " :PRINT" " : PRINT" " 

850 PRINT "********************" 

860 FOR A=0 TO 100:A$=INKEY*:GOUND 1,A,1,15 sNEXT A 

870 IF INKEY$=""THEN 870 

880 BOTO 250 

890 MODE 2:RESTORE 970 

900 FOR A=1 TO 3 

910 READ A*,N 

920 PRINT INSTRUMENTOS DE ";A$ ; " : " :PRINT" " 

930 FOR B=1 TO NrREAD B*:PRINT " ";B$,:NEXT B 
940 PRINT" "rPRINT" ":PRINT " " 

950 NEXT A 

960 BOTO 860 

970 DATA CUERDA,13 

980 DATA VIOLIN,VIOLA,VILONCELO,CONTRABAJO,LAUD,SUITARRA,BANDURRIA,BANJO,ARPA,CI 
TARA,CLAVECIN,ESPINETE,UKELELE 
990 DATA VIENTO,23 

1000 DATA FLAUTA,FLAUTIN,OBOE,DULZAINA,TENORA,CLARINETE,FABOT,CARAMILL0,TXISTU,6 
AITA,TROMPA,TROMPETA,CLARIN,TROMBON,CORNETA,FINGLE,B 
UGLE,TUBA,CUERNO,SAXOFON,ORGANO,ARMONICA,ACORDEON 
1010 DATA PERCUSION,14 

1020 DATA TRIANGULO,PLATILLOS,CAMPANA,GONG,TAMBOR,BOMBO,TIMBAL,PANDERETA,MARACA, 
PIANO,XILOFONO,CLAVICORDIO,CELESTE,MARIMBA 

1030 DATA 8,4,4,5,4,7,4,7,4,5,4,4,4,2,4,0,4,0,4,2,4,4,8,4,2,2,8,2,8,4,4,5 4,7 4 
7,4,5,4,4,4,2,4,0,4,0,4,2,4,4,8,2,2,0,9,0 
1040 DATA -1,-1 



INVASION 


10 REM ********** INVASION ************ 

20 REM **** ANGEL GARCIA DELGADO **** 

30 REM *********** G.T.S. ************* 

40 REM 

50 SYMBOL AFTER 160 

60 SYMBOL 160,252,132,246,251,255,254,252,252 
70 SYMBOL 161,0,0,0,127,127,0,0,0 
80 SYMBOL 162,66,36,126,153,153,126,60,231 
90 SYMBOL 163,255,241,253,245,245,253,241,255 
100 SYMBOL 164,73,146,73,146,73,146,73,146 
110 MODE O:INK O,O:INK 1,26«INK 2,23:INK 3,8 
120 PAPER O:BORDER 0:PEN 1 
130 CLS 

140 ORIGIN 0,0:FOR A=0 TO 600 STEP 5:PL0T A ,RND*400,1 + INT(RND*15) :NEXT A 
150 LOCATE 7,12:PRINT "INVASION" 

160 FOR A=1 TO 1000 STEP 1O:SOUND 1,A,1,15:NEXT A 

170 INK 1,26,0 

180 FOR A=300 TO O STEP -1 
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190 SOUND 1,A,1,15:S0UND 2,A+10,1,15:SOUND 3,RND*200,1,15 
200 NEXT A:INK 1,26 

210 FOR A=15 TO O STEF’ -1 :SÜUND 1 ,200,100 ,A ,0,0,31 :NEXT A 
220 MODE 1 : INK 0,0:INK 1,26:INK 2,23:INF 3,8 
240 FOR A=0 TO 600 STEP 5:PL0T A,RND*400,1 :NEXT A 
250 PEN 1 

260 LOCATE 13,2:PRINT "<< INVASION »" 

270 PEN 3 

280 LOCATE 1,5:PRINT "DESTRUYE A LOS INVASORES ANTES DE QUE SE" 

290 LOCATE 1,7:PRINT "APODEREN DE TU BARRERA DE ENERGIA IONICA" 

300 PEN 2 

310 LOCATE 15,10:PRINT "CONTROLES:" 

320 PEN 1 

330 LOCATE 13,13:PRINT" TAE<. ARRIBA" 

340 LOCATE 13,15:PRINT" CAPS. ABAJO" 

350 LOCATE 13,17:PRINT"ENTER. DISPARO" 

360 LOCATE 5,22:PEN 3:PRINT "PULSA -S- PARA COMENZAR A JUGAR" 

370 IF INKEY <60)< >0 THEN 370 
380 MODE 1 
390 PEN 1 
400 DIM M < 10) 

410 ORIGIN 0,240 
420 025 

430 FOR A=0 TO 640 STEP 5:PL0T A,RND*150,1:NEXT A 

440 FOR A=0 TO 640:C=C+9*RND-9*RND:PLOT A,0,2:DRAWR O,ABS<C):NEXT A 
450 FOR A=12 TO 21:LOCATE 2,A:PEN 1:PRINT CHR*<164) 

460 PEN -3 ÍL OCATE 39,/iiPfcíWT CWR*<L62> 

470 M (A--11) =39 :NEXT A 

480 LOCATE 2,11:PRINT CHRÍ(163) 

490 LOCATE 2,22:F'RINT CHR*<163> 

500 WINDOW #1,1,40,24,24 
510 GOSUB 650 
520 X = 17 

530 B#="":FOR A=1 TO 16:B*=Bí+CHR$(161):NEXT A 
540 LOCATE 3,X:PRINT " " 

550 IF INKEY(68)=0 THEN X=X-1:IF X<12 THEN X=12 
560 IF INKEY(70)=0 THEN X=X+1:IF X>21 THEN X=21 
570 PEN 1 :L.OCATE 3,X:PRINT CHR$<160); 

580 IF INKEY<18)=0 THEN GOSUB 660 
590 PEN 2:N=1+INT(RND#10) 

600 PEN 3 

610 M(N)=M(N)-2 :LOCATE M (N) ,N+11 :F‘RINT CHR*<162);" " 

620 IF M(N)<2 THEN GOTO 710 
630 GOTO 540 
640 END 

650 F’RINT# 1 , "PUNTOS : " ;P:RETURN 
660 PEN 2:PRINT B* 

670 FOR A=1 TO 100 STEP 10:S0UND 1 ,A,1 ,15:NEXT A 

680 IF M(X~11)<20 THEN M(X-11)=39:SOUND 2,200,10,15,0,0,30:P=P+5:GQ8UB 650 
690 LOCATE 4,X:PEN O:PRINT B* 

700 RETURN 

710 FOR a=l TO 100:SOUND 2 ,a,1,15,0,0,30:NEXT a 
720 MODE O 

730 PEN 2:INK 2,17,0:LOCATE 6,7:PRINT"GAME OVER" 

740 PEN 1 :LOCATE 5,13 :PRINT"PUNTOS:";P 
750 FOR A=1 TO 1000:A*=INKEY$:NEXT A 
760 RUN 210 
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NOVEDADES 


IAN KEY-COVER 


IAH 
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IAN KEY-COVER, ES EL PROTECTOR IDEAL PARA EL TECLADO DE SU AMSTRAD 6128 ESPECIALMENTE DISEÑADO 

PARA REUNIR TODAS LAS CARACTERISTICAS ADECUADAS PARA ELLO: 

- PROTECCION FIRME DEL TECLADO DEL CPC 6128 (REALIZADO CON RESISTENTE METACRILATO DE UNA SOLA 
PIEZA CON NERVIOS LATERALES PARA FIJACION EN EL REBORDE DEL CONJUNTO DE SU ORDENADOR). 

- AJUSTE PERFECTO EN SU ORDEÑADOR CON SUAVE PRECISION Y COBERTURA TOTAL. 

- TRANSPARENTE (CONFIRIENDOLE LA PROPIEDAD DE VISUALIZAR EN TODO MOMENTO SU TECLADO). 

- PROTECCION CONTINUA CONTRA ELEMENTOS EXTERNOS (COMO: DERRAMES DE LIQUIDOS, GOLPES, ETC.) 
ADEMAS DE GOZAR DE LA SEGURIDAD DEL BUEN FUNCIONAMIENTO DE SU ORDENADOR AL REANUDAR SU 
DIARIO QUEHACER. UN POCO DE CAFE DERRAMADO SOBRE SU TECLADO ELEVARA ENORMEMENTE EL 
PRESUPUESTO ANUAL DE SU ORDENADOR. EVITE EL RIESGO, PROTEJASE. 

- RESGUARDO PERMANENTE CONTRA EL POLVO Y LA POLUCION (EL 50 % DE LAS AVERIAS DE SU TECLADO SON 
MOTIVADOS POR EL CONTACTO CONSTANTE DE ESTE CON EL POLVO Y LAS PARTICULAS ATMOSFERICAS, EL 
EXCESO DE HUMEDAD, ETC.). ELIMINE UN RIESGO CONTINUO, DOSIFIQUELO. 

- MANTENGALO LIMPIO SU AMSTRAD 6128, CUBRIENDOLO CON IAN KEY-COVER. 

- DELE AL TECLADO DE SU AMSTRAD 6128 ESA SENSACION DE PULCRITUD, SENTIDO DEL ORDEN Y APARIENCIA 
EXTERNA QUE SU AREA DE TRABAJO, ESTUDIO O ENSEÑANZA, REQUIERE. 
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EL DOMINIO DEL AMSTRAD 
PCW 8256/8512 

“El dominio del Amstrad PCW 8256/8512” 
le sitúa en la vía rápida hacia el éxito en los 
negocios. Lo mismo si está Vd. empezan¬ 
do a utilizar uno de estos ordenadores, co¬ 
mo si está considerando comprárselo, es¬ 
te libro le mostrará rápidamente cómo ren- 
tabilizar al máximo su inversión. 

Una gran parte del libro trata del proceso 
de texto. 

Esta parte del libro es un medio didáctico 
excelente, que le conducirá desde los usos 
más sencillos del proceso de textos, a los 
más avanzados. Una sección aparte cubre 
el uso de NewWord, la potente alternativa 
de NewStarSoftware. 


DOMINE EL CODIGO MAQUI¬ 
NA EN SU AMSTRAD 

Ahora tiene la oportunidad de aprender a pro¬ 
gramar en código máquina en su ordenador 
Amstrad. Clive y Scott —dos programadores 
muy competentes, con gran experiencia en li¬ 
bros y software a sus espaldas— son los guías 
ideales para ayudarle a comprender las inte¬ 
rioridades de la programación en código má¬ 
quina del Amstrad. 

Debe ir trabajando en código máquina del 
Amstrad. 

Debe ir trabajando a lo largo del libro, saltán¬ 
dose las secciones que le presentan una es¬ 
pecial dificultad la primera vez que las lea. 
Cuando haya terminado su primera lectura, 
tendrá los suficientes conocimientos como pa¬ 
ra poder comprender aquellas secciones que 
dejó sin completar la primera vez que pasó por 
ellas. 
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CURSO DE 


BASIC+ 


Microordenador 
ZX SPECTRUM 


Microordenadores 
AMSTRAD, MSX, PC 


Microordenador 

COMMODORE 


C. Postal_Población 


Provincia 




El Curso CEAC a Distancia, 

BASIC + Microordenadores, 
le va a introducir paso 
a paso, con un cuidado 
método, en uno de los temas más 
apasionantes de nuestros días: 
la programación de ordenadores. 

Al aprender PRACTICANDO desde un principio 
a programar BASIC, lenguaje diseñado 
especialmente para dar los primeros pasos 
en programación, estará sentando las bases 
para el estudio de cualquier otro 
lenguaje de alto nivel. 

Curso CEAC 

de BASIC + Microordenadores: 
un diálogo permanente 
con el ordenador. 




ESTAS ENSEÑANZAS SE AJUSTAN AL ART. 35 

DEL DECRETO 707/1976 V A LA ORDEN MINISTERIAL DE 5/2/1979 


deseo recibir a la mayor 
brevedad posible información 
sobre el Curso de:_ 


Nombre y apellidos. 


Domicilio. 


Edad 




Otros Cursos: 

- Introducción a 
la Informática 

- Electrónica |con experimentos! 

- Contabilidad 

- Fotografía 

- Curso de Video 

- Decoración 


Para 

saber cómo 
hablar con los 
ordenadores 


CEAC 


CENTRO DE ENSEÑANZA A DISTANCIA 
AUTORIZADO POR EL MINISTERIO DE 
EDUCACION Y CIENCIA N ° 8039185 

(BOLETIN OFICIAL DEL ESTADO 3-6-83) 
Aragón, 472 (Dpto. REF. T XZ 08013 Barcelona 
Tel.: (93) 245 33 06 


GRATUITAMENTE 

































